home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / mapl0301.zip / MBS50301.MRG < prev    next >
Text File  |  1993-03-01  |  94KB  |  2,497 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against E:\RBBS\STOCK\RBBSSUB5.BAS to produce E:\RBBS\CHAT\RBBSSUB5.BAS
  3. * E:\RBBS\STOCK\RBBSSUB5.BAS:  Date 6-20-1992  Size 116575 bytes
  4. * ------------[ Created 03-01-1993 19:15:39 ]------------
  5. * REPLACING old line(s) by new
  6. ' $linesize:132
  7. ' $title: 'RBBSSUB5.BAS 17.4, Copyright 1986 - 92 by D. Thomas Mack'
  8. '  Copyright 1991 by D. Thomas Mack, all rights reserved.
  9. '  Name ...............: RBBSSUB5.BAS
  10. '  First Released .....: June 21, 1992
  11. '  Subsequent Releases.: 
  12. '  Copyright ..........: 1986 - 1992
  13. '  Purpose.............: The Remote Bulletin Board System for the IBM PC,
  14. '     RBBS-PC.BAS utilizes a lot of common subroutines.  Those that do not
  15. '     require error trapping are incorporated within RBBSSUB 2-5 as
  16. '     separately callable subroutines in order to free up as much
  17. '     code as possible within the 64K code segment used by RBBS-PC.BAS.
  18. '  Parameters..........: Most parameters are passed via a COMMON statement.
  19. '
  20. ' Subroutine  Line               Function of Subroutine
  21. '   Name     Number
  22. '  AddLink        63620  Adds a conference link
  23. * ------[ first line different ]------
  24. '  AskItems       63610  Get an list of items
  25. '  BinSearch      63520  Binary searches sorted file for a key value
  26. '  BreakFileName  63300  Break file name into component parts
  27. '  BufAsUnit      63500  Buffer out a string with CR's
  28. '  ChangeInit     63590  Get an integer value
  29. '  ChkAddedTime   63056  Check whether ok to extend time remaining
  30. '  ChkIfMsgHeader 63550  Checks whether record is a msg header
  31. '  DeLink         63620  Removes conference from linked ones
  32. '  DoorReturn     63100  Process door requests
  33. '  FdMacExe       63462  Executes a found macro
  34. '  FileSystem     20117  File System for RBBS-PC
  35. '  FindIt         63490  Check whether file exists and if so open as #2
  36. '  FormRead       63420  Read from file into a form
  37. '  LockAppend     63400  Prepare for a file append
  38. '  MacroExe       63460  Execute internal macro rather than user
  39. '  MarkItems      63600  Convert list of items into a "mark"
  40. '  MsgNameMatch   63540  Match name to one in msg header
  41. '  NextConf       63615  Sets up join to next conference link
  42. '  NoPath         63480  Detects whether string has a path in it
  43. '  RestoreCom     63310  Restore comm port after external program
  44. '  ReadMacro      63330  Read and process macro
  45. '  ReadParms      63490  Read certain number of parameters from file 2
  46. '  ReportEcho     63635  Reports echo preference of caller
  47. '  SayWelcome     63640  Welcomes callers on logon
  48. '  SetPrivileges  63650  Sets user privileges based on PASSWRDS
  49. '  SetPrompt      63470  Set prompts based on the user's security
  50. '  SetSessionTime 63645  Sets the session time
  51. '  SetSysOp       63625  Determines whether remote or global SysOp
  52. '  SetUserFlag    63560  Sets specified user flag
  53. '  SetUserPref    63630  Sets user preferences based on user record
  54. '  ShellExit      63320  Exit RBBS via shell
  55. '  SrchPasswrds   63652  Searches the PASSWRDS file
  56. '  TakeOffHook    63530  Take modem off hook
  57. '  TStats         69600  Display transfer stats from XFER-? file     ' MplXfer
  58. '  UnLockAppend   63410  Clean up after file append
  59. '  UnMarkItems    63610  Convert marked items into an input list
  60. '  VerifyAns      63510  Verify that string passes edits
  61. '  WildCard       63200  Match string to a pattern
  62. '
  63. '  $INCLUDE: 'RBBS-VAR.BAS'
  64. '
  65. * REPLACING old line(s) by new
  66. 20117 ' $SUBTITLE: 'FileSystem -- subroutine for RBBS-PC's file system'
  67. ' $PAGE
  68. '
  69. ' NAME    -- FileSystem
  70. '
  71. ' INPUTS  --       PARAMETER                 MEANING
  72. '             ZFileSysParm = 1  LIST THE SYSOP'S COMMENTS FILE
  73. '                                 2  L)IST DIRECTORY COMMAND
  74. '                                 3  D)OWNLOAD COMMAND
  75. '                                 4  RETURN FROM EXTERNAL PROTOCOLS
  76. '                                 5  U)PLOAD COMMAND
  77. '                                 6  S)CAN DIRECTORY COMMAND
  78. '                                 7  P)ERSONAL FILES COMMAND
  79. '                                 8  N)EW FILES COMMAND
  80. '                                 9  RETURN FROM EXTENDED DESCRIPTION
  81. * ------[ first line different ]------
  82. '                                 10  Batch Upload files
  83. '
  84. ' OUTPUTS -- ZFileSysParm = 1  COMMAND PROCESSED SUCCESSFULLY
  85. '                                2  RECYCLE TO TOP OF RBBS-PC (202)
  86. '                                3  PROCESS NEXT COMMAND (1200)
  87. '                                4  DENY USER ACCESS (1380)
  88. '                                5  HANDLE EXTENDED DESCRIP. (2008)
  89. '                                6  USER'S TIME EXCEEDED (10553)
  90. '                                7  Carrier DROPPED (10595)
  91. '
  92. ' PURPOSE -- To handle the RBBS-PC file system commands
  93. '
  94.       SUB FileSystem STATIC
  95.       ZFF = ZFileSysParm
  96.       ZFileSysParm = 1
  97.       ZActiveFMSDir$ = ""
  98.       CALL SaveUserActivity("F", ZNodeRecIndex, ZFalse)              ' CHAT0813
  99.       ON ZFF GOSUB 20119, _  ' HANDLER TO LIST COMMENTS TO SYSOP
  100.                   20150, _  ' L)IST DIRECTORY COMMAND HANDLER
  101.                   20180, _  ' D)OWNLOAD COMMAND HANDLER
  102.                   20263, _  ' RETURN FROM EXTERNAL Protocol'S
  103.                   20400, _  ' U)PLOAD COMMAND HANDLER
  104.                   21800, _  ' S)CAN DIRECTORY COMMAND HANDLER
  105.                   21850, _  ' P)ERSONAL FILES COMMAND HANDLER
  106.                   21860, _  ' N)EW FILES COMMAND HANDLER
  107.                   20705, _  ' RETURN FROM EXTENDED DESCRIPTIONS
  108.                   20410     ' 4)Batch Upload files
  109.       GOTO 21920
  110. * REPLACING old line(s) by new
  111. * ------[ first line different ]------
  112. 20120  X = 159             'Pe 01/19/93
  113.        Gosub 21915         'Pe 01/19/93
  114.        ZOutTxt$ = OutTxt$ + " " + _
  115.            ZFileNameHold$
  116.       IF WasRS$ <> "" THEN _
  117.          ZOutTxt$ = ZOutTxt$ + " for " + WasRS$
  118.       GOSUB 21650
  119.       IF ZFileSysParm > 1 THEN _
  120.          RETURN
  121.       CALL AskMore ("",ZTrue,ZTrue,ZAnsIndex,ZFalse)
  122.       IF ZNo THEN _
  123.          ZErrCode = 0 : _
  124.          RETURN
  125.       WasPG = ZTrue
  126. * REPLACING old line(s) by new
  127. 20122 CALL OpenWork (2,ZFileName$)
  128.       IF ZErrCode = 53 THEN _
  129. * ------[ first line different ]------
  130.        X = 160 : _             'Pe 01/19/93
  131.        Gosub 21915 : _         'Pe 01/19/93
  132.          ZOutTxt$ = OutTxt$ + " " + ZFileName$ : _
  133.          CALL UpdtCalr (ZOutTxt$,2) : _
  134.          X = 161 : _             'Pe 01/19/93
  135.          Gosub 21915 : _         'Pe 01/19/93
  136.          ZOutTxt$ = ZOutTxt$ + OutTxt$ : _
  137.          GOSUB 21650 : _
  138.          RETURN
  139.       ZJumpSupported = ZTrue
  140.       ZJumpLast$ = ""
  141.       LastOK = ZFalse
  142.       ZJumpSearching = ZFalse
  143.       MaxPrint = ZPageLength - 1
  144.       CALL CmdStackPushPop (1)
  145.       ZLastIndex = 0
  146. * REPLACING old line(s) by new
  147. 20150 ZListDir = ZTrue
  148.       ListNew = ZFalse
  149.       SearchDate$ = ""
  150.       SearchString$ = ""
  151.       WasRS$ = ""
  152.       ShowDirOfDir = (ZLastIndex <= ZAnsIndex) AND NOT ZExpertUser
  153.       WasCK = 0
  154.       ZSearchingAll = ZFalse
  155. * ------[ first line different ]------
  156.       ZExtendedOff = ZFalse 'ZTrue   'Pe 10/27/91
  157. * REPLACING old line(s) by new
  158. * ------[ first line different ]------
  159. 20155 IF ZDnldCompleted AND ZAutoEnd = 1 THEN _   'Pe 02/05/90
  160.         ZFileSysParm = 7 : _
  161.         RETURN
  162.  IF ListNew OR ZAnsIndex > 255 THEN _   'Pe 12/12/91
  163.          RETURN                         'Pe 12/12/91
  164.       CALL GetDirs (ZFalse)    'Pe 02/04/90
  165.       IF ZWasQ = 0 THEN _
  166.          RETURN
  167.       ShowDirOfDir = ZFalse
  168.       CALL ConvertDir (ZAnsIndex)
  169.       WasQX = ZLastIndex
  170. * REPLACING old line(s) by new
  171. 20159 IF ZAnsIndex < ZLastIndex THEN _
  172.          GOTO 20155
  173.       ZSearchingAll = ZFalse
  174.       CALL CmdStackPushPop (1)
  175.       ZLastIndex = 0
  176.       IF ZNo OR InFMS OR (ZFileNameHold$ = ZDirPrefix$) THEN _
  177.          GOTO 20155
  178.       GOSUB 20178
  179.       CALL QuickTPut (ZEmphasizeOff$,0)
  180.       ZTurboKey = - ZTurboKeyUser
  181. * ------[ first line different ]------
  182.        X = 162              'Pe 01/19/93
  183.        Gosub 21915         'Pe 01/19/93
  184.        ZOutTxt$ = OutTxt$
  185.       GOSUB 21667
  186.       CALL AraAllCaps (ZUserIn$(),1)
  187. '******************************* Pe 02/15/90 **********************
  188.      IF ZUserIn$(1) = "T"  AND _
  189.          ZUserSecLevel >= ZOptSec(19 - 20 * (ZMenuIndex = 6)) THEN _
  190.          ZAnsIndex = 1 : _   
  191.         CALL TypeFile : _
  192.        RETURN
  193.      IF ZUserIn$(1) = "V"  AND _
  194.          ZUserSecLevel >= ZOptSec(19 - 20 * (ZMenuIndex = 6)) THEN _
  195.          ZAnsIndex = 1 : _   
  196.         CALL GetArc : _
  197.        RETURN
  198. '******************************************************************
  199.       IF ZUserIn$(1) = "L" THEN _
  200.          ZUserIn$(ZAnsIndex) = WasA1$ : _
  201.         GOTO 20161
  202.       Temp$ = ZUserIn$(1)
  203.       Temp = (ZUserIn$(1) = "D")
  204.       CALL AskItems ("MD",Temp$,ZTrue,"file",ZMarkedFiles$)
  205.       IF ZWasQ = 0 OR ZUserSecLevel < ZOptSec(19 - 20 * (ZMenuIndex = 6)) THEN _
  206.          GOTO 20160
  207.       IF Temp THEN _
  208.          GOSUB 20202 _
  209.       ELSE IF LEN(ZUserIn$(1)) > 1 THEN _
  210.          ZAnsIndex = 1 : _
  211.          GOSUB 20202
  212. * REPLACING old line(s) by new
  213. 20162 CALL CmdStackPushPop (1)         ' save dir list list processing
  214.       CALL FMS (ZWasZ$,SearchString$,SearchDate$,InFMS, _
  215.                 ZCategoryName$(),ZCategoryCode$(),ZCategoryDesc$(),_
  216.                 DnldFlag,CatFound,ZAnsIndex)
  217.       WHILE DnldFlag > 0 AND ZSubParm > -1
  218.          GOSUB 20202
  219.          IF ZFileSysParm > 1 THEN _
  220.             RETURN
  221. * ------[ first line different ]------
  222.         IF ZDnldCompleted and ZAutoEnd = 1 THEN _  'Pe 02/05/90
  223.            RETURN       ' AUTOLOGOFF MOD
  224.          WasX$ = ZCategoryCode$(CatFound)
  225.          CALL DispUpDir (WasX$,SearchString$,SearchDate$,DnldFlag,ZAnsIndex)
  226.          CALL CheckTimeRemain (MinsRemaining)
  227.          IF ZSubParm = -1 THEN _
  228.             ZFileSysParm = 6 : _
  229.             RETURN
  230.          CALL Carrier
  231.       WEND
  232.       IF ZSubParm = -1 THEN _
  233.          ZFileSysParm = 7 : _
  234.          RETURN
  235.       IF ZAnsIndex > 255 OR ZRet THEN _
  236.          ZLastIndex = 0 : _
  237.          RETURN
  238.       CALL CmdStackPushPop (2)        ' restore dir list list processing
  239.       ZActiveFMSDir$ = ""
  240.       IF InFMS THEN _
  241.          GOTO 20159
  242.       IF ZUserSecLevel < ZMinSecToView THEN _
  243.          IF ZFileNameHold$ = ZUpldDirCheck$ THEN _
  244.        X = 163 : _             'Pe 01/19/93
  245.        Gosub 21915 : _        'Pe 01/19/93
  246.        ZOutTxt$ = OutTxt$ : _
  247.         GOSUB 21640 : _                                           'DGS-TXT
  248.         ZNo = ZTrue : _                                           'DGS-TXT
  249.         GOTO 20155                                                'DGS-TXT
  250.       ZFileNameHold$ = ZUserIn$(ZAnsIndex)
  251.       IF ZLimitSearchToFMS THEN _
  252.          GOTO 20166
  253.       IF NOT ZSearchingAll THEN _
  254.          IF ZFileNameHold$ = "ALL" OR ZFileNameHold$ = "A" THEN _
  255.             ZSearchingAll = ZTrue : _
  256.             GOSUB 21890 : _
  257.             GOTO 20157
  258.       CALL BadFile (ZFileNameHold$,BadFileNameIndex)
  259.       ON BadFileNameIndex GOTO 20163,20172,20176
  260. * REPLACING old line(s) by new
  261. 20166 ZFileName$ = ZCurDirPath$ + _
  262.                    ZFileNameHold$ + ".MNU"
  263. * ------[ first line different ]------
  264.       CALL FindIt (ZFileName$)
  265.       IF ZOK THEN _
  266.          CALL BufFile (ZFileName$,ZAnsIndex) : _
  267.          GOTO 20155
  268.       IF ZAltdirExtension$ = "" THEN _
  269.          GOTO 20172
  270.       ZFileName$ = ZCurDirPath$ + _
  271.                    ZFileNameHold$ + _
  272.                    "." + _
  273.                    ZAltdirExtension$
  274.       CALL Graphic (ZFileName$)
  275.       IF NOT ZOK THEN _
  276.          GOTO 20172
  277. * REPLACING old line(s) by new
  278. 20172 IF NOT ZSearchingAll THEN _
  279. * ------[ first line different ]------
  280.        X = 70 : _             'Pe 01/19/93
  281.        Gosub 21915 : _         'Pe 01/19/93
  282.          ZOutTxt$ = "Directory " + _
  283.               ZFileNameHold$ + _
  284.               OutTxt$ : _
  285.          GOSUB 21640 : _
  286.          ZNo = ZTrue : _
  287.          IF ZFileSysParm > 1 THEN _
  288.             RETURN
  289.       GOTO 20155
  290. * REPLACING old line(s) by new
  291. 20202 IF (ZTimeLock AND 2) AND (NOT TimeLockExempt) AND NOT ZHasPrivDoor THEN _
  292.          CALL TimeLock : _
  293.          IF NOT ZOK THEN _
  294.             RETURN
  295.       LastDnld = ZLastIndex
  296.       FirstDnld = ZAnsIndex
  297.       ZCmdTransfer$ = ""
  298. * ------[ first line different ]------
  299.       ZAnsIndex = ZLastIndex
  300.       GOSUB 20470
  301.       LastDnld = LastDnld + (WasX > 0)
  302.       BatchBytes# = 0
  303.       BatchBlocks# = 0
  304.       ZDownFiles = 0
  305.       CALL KillWork (ZNodeWorkFile$)
  306.       ZErrCode = 0
  307.       ZAnsIndex = FirstDnld
  308. * REPLACING old line(s) by new
  309. 20205 MarkingTime = (ZAnsIndex = FirstDnld OR NOT ZConcatFIles)
  310.       ZFileName$ = ZUserIn$(ZAnsIndex)
  311. * ------[ first line different ]------
  312.       CALL AllCaps(ZFileName$)              'ANSIEd
  313.       CALL Remove (ZFileName$,", ")
  314.       ZViolation$ = "Download "
  315.       IF ZListOnly THEN _
  316.          CALL BreakFileName (ZFileName$,DR$,ZWasY$,WasX$,ZTrue) : _
  317.          ZFileNameHold$ = ZWasY$ + _
  318.                            WasX$ : _
  319.          GOTO 20235
  320.       ZFileNameHold$ = ZFileName$
  321.       TmpFileNameHold$ = ZFileNameHold$                            'Pe 04/25/92
  322.       CALL BadFile (ZFileName$,BadFileNameIndex)
  323.       ON BadFileNameIndex GOTO 20220,20231,20233
  324. * INSERTING new line(s)
  325. 20210 CALL RotorsDir (ZFileName$,ZSubDir$(),ZSubDirCount + _      'Pe 06/01/92
  326.                       ((ZUserSecLevel < ZMinSecToView) OR _       'Pe 06/01/92
  327.                        NOT ZCanDnldFromUp),MarkingTime,"D")       'Pe 06/01/92
  328.        RETURN                                                     'Pe 06/01/92 
  329. * REPLACING old line(s) by new
  330. * ------[ first line different ]------
  331. 20220 IF INSTR(ZFileName$,ZDefaultExtension$)= 0 Then             'Pe 06/04/92
  332.       GOSUB 20210                                                 'Pe 06/02/92
  333.       IF ZOK THEN _                                               'Pe 06/02/92
  334.         GOTO 20235                                                'Pe 06/02/92
  335.       IF ZDotFlag THEN _                                          'Pe 06/02/92
  336.          RETURN                                                   'Pe 06/02/92
  337.      End if                                                       'Pe 06/04/92
  338.          WasI = 1                                                 'Pe 06/01/92
  339. * DELETING old line(s)
  340. 20222
  341. * REPLACING old line(s) by new
  342. * ------[ first line different ]------
  343. 20225 CALL BreakFileName (ZFileName$,DR$,WasX$,Extension$,ZFalse) 'Pe 06/01/92
  344.         WasJ = INSTR(Mid$(ZCompressedExt$+". ",WasI),".")        'Pe 04/18/92
  345.        IF WasJ = 0 THEN _                                        'Pe 04/18/92
  346.           GOTO 20231                                             'Pe 06/04/92
  347.               Check$ = MID$(ZCompressedExt$,WasI,WasJ-1)         'Pe 04/28/92
  348.           WasI = WasI + WasJ                                     'Pe 04/18/92
  349.        ZFileName$ = WasX$ + "." + Check$                         'Pe 04/18/92
  350.       ZFileNameHold$ = ZFileName$                                'Pe 04/18/92
  351.      GOSUB 20210                                                 'Pe 06/01/92
  352.  IF ZOK THEN _                                                   'Pe 06/01/92
  353.        GOTO 20235                                                'Pe 06/01/92
  354.      IF ZDotFlag THEN _                                          'Pe 06/01/92
  355.         RETURN                                                   'Pe 06/01/92
  356.       GOTO 20225                                                 'Pe 06/01/92
  357. * REPLACING old line(s) by new
  358. * ------[ first line different ]------
  359. 20231  X = 70              'Pe 01/19/93
  360.        Gosub 21915         'Pe 01/19/93
  361.        ZOutTxt$ = TmpFileNameHold$ + _                             'Pe 04/18/92
  362.            OutTxt$
  363.       CALL UpdtCalr (ZOutTxt$,2)
  364.       ZOutTxt$ = ZOutTxt$ + _
  365.            " Correct name"+ZPressEnterExpert$
  366.       ZSuspendAutoLogoff = ZTrue
  367.       GOSUB 21660
  368.       ZSuspendAutoLogoff = ZFalse
  369.       IF ZFileSysParm > 1 THEN _
  370.          RETURN
  371.       IF ZWasQ=0 THEN _
  372.          IF ZBatchTransfer AND ZAnsIndex >= LastDnld THEN _
  373.             GOTO 20262 _
  374.          ELSE ZAutoLogOffReq = ZFalse : _
  375.               RETURN
  376.       ZUserIn$(ZAnsIndex) = ZUserIn$(1)
  377.       GOTO 20205
  378. * REPLACING old line(s) by new
  379. 20236 ZLine25$ = "(D) " + _
  380.                  ZWasZ$
  381. * ------[ first line different ]------
  382. '
  383. ' *  TEST FOR DOWNLOAD SECURITY
  384. '
  385.       CALL OpenWork (2,ZFileSecFile$)
  386.       IF ZErrCode = 53 THEN _
  387.        X = 160 : _              'Pe 01/19/93
  388.        Gosub 21915  : _        'Pe 01/19/93
  389.          CALL UpdtCalr (OutTxt$ + " " + ZFileSecFile$,2) : _
  390.          GOTO 20247
  391. * REPLACING old line(s) by new
  392. 20244 IF ZUserSecLevel < VAL(ZWorkAra$(2)) THEN _
  393.          GOTO 20245
  394.       FilePswd$ = ZWorkAra$(3)
  395.       IF FilePswd$ = "" THEN _
  396.          GOTO 20247
  397. * ------[ first line different ]------
  398.       CALL AraAllCaps (ZUserIn$(),1)
  399.       IF ZUserIn$(1) = FilePswd$ THEN _
  400.          GOTO 20247
  401.        X = 164               'Pe 01/19/93
  402.        Gosub 21915         'Pe 01/19/93
  403.       ZOutTxt$ = OutTxt$ + " " + ZFileName$
  404.       GOSUB 21660
  405.       IF ZFileSysParm > 1 THEN _
  406.          RETURN
  407.       IF ZWasQ = 0 THEN _
  408.          RETURN
  409.       CALL AllCaps (ZUserIn$(1))
  410.       IF ZUserIn$(1) = FilePswd$ THEN _
  411.          GOTO 20247
  412. * REPLACING old line(s) by new
  413. 20247 ZWasDF = 0
  414.       CALL BreakFileName (ZFileName$,DR$,WasX$,Extension$,ZFalse)
  415. * ------[ first line different ]------
  416.  IF INSTR("...WRK.FW .GIF.JPG.MAC.ARC.EXE.COM.OBJ.WKS.LBR.ZIP.PAK.ZOO.ARJ.LZH.","."+Extension$+".") > 2 OR _
  417.          MID$(Extension$,2,1) = "Q" OR _                         'ST022093
  418.          (ZRequireNonASCII AND Extension$ = "BAS") THEN _
  419.             ZWasDF = ZTrue
  420. * REPLACING old line(s) by new
  421. 20260 ZTransferFunction = 1
  422. * ------[ first line different ]------
  423.       ZWasBatchTransfer = ZFalse             'Pe 03/02/92
  424.       ZUpBatchTransfer = ZFalse              'Pe 03/02/92
  425.       GOSUB 21790
  426.       IF ZFileSysParm > 1 THEN _
  427.          RETURN
  428.          ZBatchTransfer = ZBatchProto                     'Pe Batch Mod
  429.       IF ZBatchTransfer AND ZCmdTransfer$ = "" THEN _
  430.          ZCmdTransfer$ = ZWasFT$
  431.       ON INSTR("AXCYN",ZInternalProt$) GOTO _
  432.          20340, _              ' ASCII DOWNLOAD
  433.          20290, _              ' Xmodem
  434.          20290, _              ' Xmodem CRC
  435.          20270, _              ' YMODEM
  436.          21700                 ' NONE - CANCEL
  437. '
  438. ' *  EXTERNAL Protocol Downloads/Uploads
  439. '
  440. * REPLACING old line(s) by new
  441. 20262 IF ZBatchTransfer THEN _
  442.          IF ZAnsIndex < LastDnld THEN _
  443.             RETURN _
  444.          ELSE ZBlocksInFile# = BatchBlocks# : _
  445.               ZBytesInFile# = BatchBytes# : _
  446.               ZNumDnldBytes! = BatchBytes# : _
  447.               IF ZBytesInFile# < 1 THEN _
  448.                  RETURN _
  449.               ELSE GOSUB 20780 : _
  450.                    IF ZFileSysParm > 1 OR NOT ZOK THEN _
  451.                       RETURN
  452. * ------[ first line different ]------
  453.          IF ZAbort THEN _
  454.             ZAbort = ZFalse : _              'Pe 01/26/92
  455.             ZDnldCompleted = ZFalse : _
  456.             GOSUB 21760 : _
  457.             RETURN
  458.       GOSUB 20337
  459.       CALL Transfer
  460. * REPLACING old line(s) by new
  461. 20263 IF ZPrivateDoor THEN _
  462.          ZCmdTransfer$ = ZWasFT$ : _
  463.          CALL XferType (2,ZTrue) : _
  464.          ZCmdTransfer$ = ""
  465.       CALL OpenWork (2,"XFER-" + ZNodeID$ + ".DEF")
  466.       IF ZErrCode <> 0 THEN _
  467.          GOTO 20267
  468.       CALL ReadParms (ZWorkAra$(), ZFailureParm, 1)
  469.       IF ZErrCode <> 0 THEN _
  470.          GOTO 20267
  471.       CLOSE 2
  472. * ------[ first line different ]------
  473.       IF NOT ZFakeXRpt THEN _                  'Pe 03/26/92
  474.         Call TStats                            'Pe 03/26/92
  475.       CALL KillWork ("XFER-" + ZNodeID$ + ".DEF")
  476. * REPLACING old line(s) by new
  477. 20265 IF ZTransferFunction = 2 THEN _
  478.          IF INSTR(ZWorkAra$(ZFailureParm),ZFailureString$) <> 1 THEN _
  479.             GOTO 20700 _
  480.          ELSE GOTO 20730
  481.       IF ZTransferFunction = 1 THEN _
  482. * ------[ first line different ]------
  483.         ZDnldCompleted = (INSTR(ZWorkAra$(ZFailureParm),ZFailureString$) <> 1)  'Pe 05/30/91
  484.       GOSUB 21760
  485.       CALL Carrier
  486.       IF ZSubParm = -1 THEN _
  487.          ZFileSysParm = 7
  488.       RETURN
  489. '
  490. ' *  XFER FILE NOT Found
  491. '
  492. * REPLACING old line(s) by new
  493. * ------[ first line different ]------
  494. 20292 X = 165               'Pe 01/19/93
  495.       Gosub 21915        'Pe 01/19/93
  496.       Call QuickTput1 (OutTxt$) : _
  497.       Call Delaytime (3) : _
  498.       Return
  499. * DELETING old line(s)
  500. 20294
  501. * REPLACING old line(s) by new
  502. * ------[ first line different ]------
  503. 20318 X = 166               'Pe 01/19/93
  504.        Gosub 21915        'Pe 01/19/93
  505.       ZOutTxt$ = OutTxt$
  506.       GOSUB 21630
  507.       IF ZFileSysParm > 1 THEN _
  508.          RETURN
  509.       CALL DelayTime (3)
  510.       RETURN
  511. * DELETING old line(s)
  512. 20325
  513. * REPLACING old line(s) by new
  514. * ------[ first line different ]------
  515. 20330 GOSUB 20337
  516.       ZOutTxt$ = ZProtoPrompt$ + _
  517.             " " + WasA1$ + _
  518.             " of " + _
  519.             ZFileNameHold$ + _
  520.             " ready.  <Ctrl X> aborts"
  521.       GOSUB 21650
  522.       RETURN
  523. * DELETING old line(s)
  524. 20335
  525. * REPLACING old line(s) by new
  526. 20340 IF ZWasDF THEN _
  527. * ------[ first line different ]------
  528.        X = 167 : _              'Pe 01/19/93
  529.        Gosub 21915  : _        'Pe 01/19/93
  530.          ZOutTxt$ = OutTxt$ : _
  531.          GOSUB 21650 : _
  532.          GOTO 21700
  533.       GOSUB 20750
  534.       IF ZFileSysParm > 1 OR NOT ZOK THEN _
  535.          RETURN
  536.       CALL OpenWork (2,ZFileName$)
  537.       IF (ZAnsIndex = FirstDnld OR NOT ZConcatFIles) THEN _
  538.          GOSUB 20337 : _
  539.        X = 168 : _              'Pe 01/19/93
  540.        Gosub 21915  : _        'Pe 01/19/93
  541.          ZOutTxt$ = OutTxt$ : _
  542.          GOSUB 21640 : _
  543.          IF ZFileSysParm > 1 THEN _
  544.             RETURN _
  545.          ELSE X = 169 : _              'Pe 01/19/93
  546.              Gosub 21915  : _        'Pe 01/19/93
  547.  ZOutTxt$ = ZProtoPrompt$ + " SEND of " + _
  548.               ZFileNameHold$ + _
  549.               OutTxt$ : _
  550.          ZTurboKey = 2 : _
  551.          ZForceKeyboard = ZTrue : _
  552.          ZSuspendAutologoff = ZTrue : _
  553.          GOSUB 21660 : _
  554.          ZSuspendAutologoff = ZFalse : _
  555.          IF ZFileSysParm > 1 THEN _
  556.             RETURN
  557. * REPLACING old line(s) by new
  558. 20380 ZStopInterrupts = ZFalse
  559.       WasTU = 0
  560.       SWAP WasTU,ZPageLength
  561.       CALL BufFile (ZFileName$,WasX)
  562.       SWAP WasTU,ZPageLength
  563.       ZNonStop = (ZPageLength < 1)
  564.       IF StopFile THEN _
  565. * ------[ first line different ]------
  566.          ZDnldCompleted = ZFalse : _   'Pe 05/29/91
  567.          GOTO 20390
  568. * REPLACING old line(s) by new
  569. 20385 ZDnldCompleted = ZTrue   'Pe 05/30/91
  570. * REPLACING old line(s) by new
  571. 20395 GOSUB 21640
  572.       IF ZFileSysParm > 1 THEN _
  573.          RETURN
  574. * ------[ first line different ]------
  575.        X = 170              'Pe 01/19/93
  576.        Gosub 21915        'Pe 01/19/93
  577.       ZOutTxt$ = OutTxt$ +ZPressEnterExpert$
  578.       GOSUB 21660
  579.       IF ZFileSysParm > 1 THEN _
  580.          RETURN
  581.       IF ZWasQ = 0 THEN _
  582.          RETURN
  583.       ZUserIn$(ZAnsIndex) = ZUserIn$(1)
  584.       GOTO 20435
  585. * REPLACING old line(s) by new
  586. 20400 CALL TimeBack (1)
  587. * ------[ first line different ]------
  588.       ZUpBatchTransfer = ZFalse     'Pe 12/08/91
  589.       ZWasBatchTransfer = ZFalse
  590.       GOSUB 20420
  591.       ZAutoLogOffReq = 0
  592.       FirstUpld = ZAnsIndex
  593.       GOTO 20430
  594. * INSERTING new line(s)
  595. 20410 CALL TimeBack (1)
  596.       CALL KillWork (ZBatchWorkFile$)                 'Pe Batchup mod 
  597.       ZErrCode = 0
  598.       ZUpBatchTransfer = ZTrue
  599.       Call Killwork ("BatchUp" +ZNodeID$ +".LST")
  600.       ZErrCode = 0
  601.       ZAutoLogOffReq = 0
  602. '
  603. ' changes for 12/28/91
  604. '
  605. If LEN(ZUserIn$) < 3 Then _
  606.       CALL Batchit : _
  607.       FirstUpld = 2 : _
  608.       LastUpld = ZLastIndex : _
  609.       GOTO 20430
  610.      FirstUpld = ZAnsIndex
  611.     Goto 20430
  612.  
  613. * REPLACING old line(s) by new
  614. * ------[ first line different ]------
  615. 20420  X = 171              'Pe 01/19/93
  616.       Gosub 21915        'Pe 01/19/93
  617.       ZOutTxt$ = OutTxt$
  618.       GOSUB 21667
  619.       RETURN
  620. '
  621. ' *  SEARCH FOR DUPLICATE FILENAME
  622. '
  623. * REPLACING old line(s) by new
  624. 20432 FOR ZAnsIndex = FirstUpld TO LastUpld
  625.          IndexSave = ZAnsIndex
  626.          GOSUB 20471
  627.          GOSUB 20435
  628.          FirstUpld = FirstUpld + 1
  629.          IF ZFileSysParm > 1 THEN _
  630.             IndexSave = LastUpld + 1
  631.          ZAnsIndex = IndexSave
  632. * ------[ first line different ]------
  633.      NEXT
  634.     ZCmdTransfer$ = ""
  635.       RETURN
  636. * REPLACING old line(s) by new
  637. 20435 ZFileNameHold$ = ZUserIn$(ZAnsIndex)
  638.       ExtSrch = ZFalse
  639.       IF INSTR(ZFileNameHold$,".") = 0 THEN _
  640.          ZFileNameHold$ = ZFileNameHold$ + "." + ZDefaultExtension$
  641.       CALL AllCaps(ZFileNameHold$)
  642.       ZFileName$ = ZFileNameHold$
  643.       ZViolation$ = "Upload "
  644.       CALL NoPath (ZFileName$,BadFileNameIndex)
  645.       IF BadFileNameIndex THEN _
  646.          GOTO 20451
  647.       CALL BadFile (ZFileName$,BadFileNameIndex)
  648.       ON BadFileNameIndex GOTO 20440,20451,20515
  649. * ------[ first line different ]------
  650. '
  651. ' Following mod was orig from DGS-UNW mod....updated for Maple code 12/15/91
  652. ' 
  653. * REPLACING old line(s) by new
  654. * ------[ first line different ]------
  655. 20440 TmpName$ = ZDirPath$+"NOTHANX.DEF"                         'Pe 06/01/92
  656.       CALL FindIt (TmpName$)                                        'DGS-UNW
  657.       IF ZOK THEN
  658.        X = 172              'Pe 01/19/93
  659.        Gosub 21915        'Pe 01/19/93
  660.        CALL QuickTPut1 (OutTxt$ + " "+ZFileNameHold$)
  661.         CALL OpenWork (2,TmpName$)
  662.          HaveFile$ = ""
  663.           FileInList = ZFalse
  664.             WHILE NOT EOF(2) AND NOT FileInList
  665.          INPUT #2, HaveFile$
  666.         CALL AllCaps (HaveFile$)
  667.           FileInList = (INSTR(ZFileNameHold$,HaveFile$) > 0)
  668.      WEND
  669.        CLOSE 2
  670.       END IF
  671.      IF FileInList THEN _
  672.     GOTO 20443
  673. '
  674. ' If you want to eliminate either one of these routines just comment
  675. ' out the one you don't want....NOTHANX.DEF must reside in RBBS's Subdir
  676. ' the OFFLINE.DIR were your Master FMS dir is kept....you can change names
  677. ' as you see fit. 
  678. '                  !!DO NOT COMMENT OUT THE LINE NUMBER !!
  679. '
  680.  TmpName$ = ZDirPath$+"OFFLINE.DIR"                            'PE mode2 to
  681.        CALL FindIt (TmpName$)                                        'DGS-UNW
  682.         IF ZOK THEN
  683.        X = 173               'Pe 01/19/93
  684.        Gosub 21915        'Pe 01/19/93
  685.           CALL QuickTPut1 (OutTxt$ + " "+ZFileNameHold$ )
  686.            CALL OpenWork (2,TmpName$)
  687.             HaveFile$ = ""
  688.              FileInList = ZFalse
  689.                WHILE NOT EOF(2) AND NOT FileInList
  690.                 LINE INPUT #2, HaveFile$                     'Pe 12/15/91
  691.                  CALL AllCaps (HaveFile$)
  692.                   StopReading = INSTR(HaveFile$,".")
  693.                    HaveFile$ = Left$(HaveFile$,StopReading)    'Pe 12/16/91
  694.                   Search = INSTR(ZFileNameHold$,".")
  695.                   Search$ = Left$(ZFileNameHold$,Search)
  696.                  If Search$ = HaveFile$ THEN_
  697.                 FileInList = ZTrue
  698.              WEND
  699.       CLOSE 2
  700.         END IF
  701. '
  702. '    next 2 lines
  703. '    Allow Sysop to update FMS listing with a local upload
  704. '    even if the filename exists in the NOTHANX.DEF OR OFFLINE.DIR
  705. '
  706. * INSERTING new line(s)
  707. 20443   If ZSysop Then _
  708.             FileinList = ZFalse            'Pe 12/15/91
  709.         IF FileInList THEN _
  710.            CALL BufFile (ZHelpPath$+"NOTHANX.MSG",WasX) : _  'Pe 06/01/92
  711.            CALL DelayTime (3) : _
  712.            GOTO 20453
  713.         CALL Carrier
  714.         IF ZSubParm = -1 THEN _
  715.            ZFileSysParm = 7 : _
  716.            RETURN
  717.       PersFile$ = ZFileName$                                     'Pe 08/09/91
  718.       ZFileName$ = ZPersonalDrvPath$ + PersFile$                 'Pe 08/08/91
  719.       Call FindFile (ZFileName$,ZOK)                             'Pe 08/09/91
  720.       IF ZOK THEN Goto 20452                                     'Pe 08/09/91
  721.       ZFileName$ = PersFile$                                     'Pe 08/09/91
  722.       CALL RotorsDir (ZFileName$,ZSubDir$(),ZSubDirCount,ZTrue,"U")
  723. * REPLACING old line(s) by new
  724. 20450 IF Extension$ <> Check$ THEN _
  725. * ------[ first line different ]------
  726.       CALL RotorsDir (WasX$ + "." + Check$,ZSubDir$(),ZSubDirCount,ZTrue,"U") : _
  727.          IF ZOK THEN _
  728.             ExtSrch = ZTrue : _
  729.             GOTO 20452
  730.       GOTO 20447
  731. * REPLACING old line(s) by new
  732. * ------[ first line different ]------
  733. 20451 X = 174              'Pe 01/19/93
  734.       Gosub 21915        'Pe 01/19/93
  735.       ZOutTxt$ = OutTxt$+ ZFileName$ + ">"
  736.       GOTO 20395
  737. * REPLACING old line(s) by new
  738. 20452 IF ZUserSecLevel < ZOverWriteSecLevel THEN _
  739.          GOTO 20453
  740.       IF ExtSrch AND (WasX$ + "." + Check$) <> ZFileName$ THEN _
  741. * ------[ first line different ]------
  742.        X = 175 : _              'Pe 01/19/93
  743.        Gosub 21915  : _        'Pe 01/19/93
  744.          ZOutTxt$ = WasX$ + "." + Check$ + OutTxt$ _
  745.       ELSE X = 176              'Pe 01/19/93
  746.        Gosub 21915        'Pe 01/19/93
  747.        ZOutTxt$ = OutTxt$
  748.       GOSUB 21660
  749.       IF ZFileSysParm > 1 THEN _
  750.          RETURN
  751.       IF NOT ZYes THEN _
  752.          GOTO 20453
  753.       ZWasZ$ = ZFileName$
  754.       CALL KillWork (ZFileName$)
  755.       IF ZErrCode <> 0 AND ZErrCode <> 53 THEN _
  756.        X = 177 : _              'Pe 01/19/93
  757.        Gosub 21915  : _        'Pe 01/19/93
  758.          ZOutTxt$ = OutTxt$ : _
  759.          GOSUB 21660 : _
  760.          RETURN
  761.       GOTO 20475
  762. * REPLACING old line(s) by new
  763. 20453 CLOSE 2
  764. * ------[ first line different ]------
  765.       FileInList = ZFalse ' Pe 12/31/92
  766.       IF ZUserSecLevel >= ZAddDirSecurity THEN _
  767.          GOTO 20455
  768. * REPLACING old line(s) by new
  769. * ------[ first line different ]------
  770. 20454 X = 178               'Pe 01/19/93
  771.       Gosub 21915         'Pe 01/19/93
  772.       CALL QuickTPut1 (OutTxt$ + " " + ZFileNameHold$)
  773.       CALL DelayTime (3)  'Pe 08/04/91
  774.       PersFile$ = ""      'Pe 08/08/91
  775.       CALL UpdtCalr ("Upload duplicate " + ZFileNameHold$,1)
  776.       RETURN
  777. * REPLACING old line(s) by new
  778. * ------[ first line different ]------
  779. 20455 X = 179              'Pe 01/19/93
  780.        Gosub 21915        'Pe 01/19/93
  781.        ZOutTxt$ = OutTxt$
  782.       ZTurboKey = - ZTurboKeyUser
  783.       GOSUB 21660
  784.       IF ZFileSysParm > 1 THEN _
  785.          RETURN
  786.       IF NOT ZYes THEN _
  787.          RETURN
  788.       GOSUB 20460
  789.       IF WhoTo$ = "" THEN _
  790.          RETURN
  791.       AddingDescOnly = ZTrue
  792.       ZWasBatchTransfer = ZFalse    'Pe 01/03/92
  793.       ZWasFT$ = "l"
  794. CALL UpdtUpload (ZCategoryName$(),ZCategoryCode$(),ZLinesInMsg,1) 'UPL-MOD pe082690
  795. 'Call AutoLogoff    'Pe 10/20/91 Test mod... remove when working
  796.       GOSUB 20702
  797.       RETURN
  798. * REPLACING old line(s) by new
  799. * ------[ first line different ]------
  800. 20460 CALL KillWork (ZNodeWorkFile$)      'Pe BatchUp
  801.       WhoTo$ = ""
  802.      IF ZUpBatchTransfer THEN _          'Pe 04/29/92
  803.       WhoTo$ = "ALL"                     'Pe 04/29/92
  804.       WasY$ = ZFileName$
  805.       IF ZUserSecLevel >= ZMinSecPersUpld THEN _
  806.          CALL SetWhoTo (ZTrue,WhoTo$,"",RcvrRecNum,Found) _
  807.       ELSE WhoTo$ = "ALL"
  808.       ZFileName$ = WasY$
  809.       RETURN
  810. * REPLACING old line(s) by new
  811. 20471 ZWasZ$ = ZUserIn$(ZAnsIndex)
  812.       CALL AllCaps(ZWasZ$)
  813.       WasX = 0
  814.       IF LEN (ZWasZ$) = 1 THEN _
  815.          WasX = INSTR(ZDefaultXfer$,ZWasZ$) : _
  816.          IF WasX > 0 THEN _
  817.             ZAnsIndex = ZAnsIndex + 1 : _
  818.             IndexSave = IndexSave + 1 : _
  819.             ZCmdTransfer$ = ZWasZ$ : _
  820. * ------[ first line different ]------
  821.             IF MID$(ZInternalEquiv$,WasX,1) = "N" THEN _
  822.                ZCmdTransfer$ = ""
  823.       RETURN
  824. * REPLACING old line(s) by new
  825. 20475 ZWasZ$ = ZUpldDriveFile$
  826.       CALL FindFree
  827.       IF VAL(ZFreeSpace$) < 4096 THEN _
  828.          GOSUB 21895 : _
  829.          IndexSave = ZLastIndex + 1 : _
  830.          RETURN
  831. * ------[ first line different ]------
  832.        X = 180               'Pe 01/19/93
  833.        Gosub 21915        'Pe 01/19/93
  834.       ZOutTxt$ = OutTxt$ + ZFreeSpace$
  835.       GOSUB 21640
  836.       IF ZFileSysParm > 1 THEN _
  837.          RETURN
  838.     GOSUB 20460                                                  'Pe 08/08/91
  839.       If ZMplPersUpload = ZTrue Then _                           'Pe 08/09/91
  840.       ZFileName$ = ZPersonalDrvPath$ + PersFile$                 'Pe 08/08/91
  841. '*****************
  842. CALL UpdtUpload (ZCategoryName$(),ZCategoryCode$(),ZLinesInMsg,1)  '<++++++
  843. '*****************
  844. * INSERTING new line(s)
  845. 20476 IF ZAbort THEN _     'Pe 09/07/91 added line number
  846.       ZAbort = ZFalse : _   'PE 12/14/88
  847.         RETURN
  848.       ZLine25$ = "(U) " + _
  849.                  ZFileNameHold$
  850.       ZSubParm = 2
  851.       CALL Line25
  852.       ZOutTxt$ = ""
  853.       ZOK = ZTrue
  854. * REPLACING old line(s) by new
  855. * ------[ first line different ]------
  856. 20500  ZTransferFunction = 2
  857.       GOSUB 21790
  858.       IF ZFileSysParm > 1 THEN _
  859.          RETURN
  860.       IF ZInternalProt$ = "N" THEN _                       'Pe 08/08/91
  861.          GOTO 21700                                        'Pe 08/08/91
  862. IF NOT ZUpBatchTransfer THEN _
  863. CALL AutoLogOff            'Pe 02/04/90
  864.       IF ZAutoEnd = 2 THEN _
  865.          RETURN
  866.       ON INSTR("AXCYN",ZInternalProt$) GOTO _
  867.          20560, _         ' ASCII UPLOAD
  868.          20542, _         ' Xmodem
  869.          20542, _         ' Xmodem CRC
  870.          20542, _         ' YMODEM
  871.          20735            ' NONE - CANCEL
  872.       GOTO 20261
  873. * REPLACING old line(s) by new
  874. * ------[ first line different ]------
  875. 20542 X = 165              'Pe 01/19/93
  876.       Gosub 21915         'Pe 01/19/93
  877.       Call QuickTput1 (OutTxt$) : _
  878.       Call Delaytime (3) : _
  879.       Return
  880. '
  881. ' *  ASCII UPLOAD
  882. '
  883. * REPLACING old line(s) by new
  884. 20560 LineACK = (ZDefaultLineACK$ <> "")
  885.       IF LineACK THEN _
  886. * ------[ first line different ]------
  887.        X = 181 : _              'Pe 01/19/93
  888.        Gosub 21915  : _        'Pe 01/19/93
  889.          ZOutTxt$ = OutTxt$ : _
  890.          ZTurboKey = - ZTurboKeyUser : _
  891.          LineACK = NOT ZNo : _
  892.          GOSUB 21660 : _
  893.          IF ZFileSysParm > 1 THEN _
  894.             RETURN
  895.       GOSUB 20337
  896.        X = 182              'Pe 01/19/93
  897.        Gosub 21915       'Pe 01/19/93
  898.       CALL QuickTPut1 (OutTxt$)
  899.       CALL QuickTPut1 (ZProtoPrompt$+" RECEIVE of " + ZFileNameHold$ + " ready")
  900.       ZOK = ZFalse
  901.       XOff = ZFalse
  902.       CALL OpenOutW(ZFileName$)
  903.       IF ZErrCode <> 0 AND ZErrCode <> 53 THEN _
  904.          ZWasEL = 20560 : _
  905.          GOTO 21900
  906.       GOSUB 20510
  907.       IF ZFileSysParm > 1 THEN _
  908.          RETURN
  909. * REPLACING old line(s) by new
  910. * ------[ first line different ]------
  911. 20670 X = 183               'Pe 01/19/93
  912.        Gosub 21915        'Pe 01/19/93
  913.        ZOutTxt$ = ZXOff$ + OutTxt$
  914. * REPLACING old line(s) by new
  915. 20700 GOSUB 21780
  916.       IF ZFileSysParm > 1 THEN _
  917.          RETURN
  918. * ------[ first line different ]------
  919. '
  920. '20702 IF ZWasFT$ = "l" THEN _          'Pe 12/28/91
  921. '         ZWasBatchTransfer = ZFalse    'Pe 12/28/91
  922. '
  923. 'Line number moved for Local Uploads    'Pe 01/03/91
  924. '
  925.       IF ZWasBatchTransfer Then _
  926.         CALL BatchUpload (ZDesc$,ZUCat$,2) : _
  927.         GOTO 20703
  928. * REPLACING old line(s) by new
  929. * ------[ first line different ]------
  930. 20702 CALL UpdtUpload (ZCategoryName$(),ZCategoryCode$(), ZLinesInMsg,2) 'Pe 02/03/90
  931. '
  932. * INSERTING new line(s)
  933. 20703 IF ZAutoEnd = 1 THEN _                'AUTO-UP MOD
  934.          ZFileSysParm = 7: _             'Pe BatchUp 09/12/91
  935.          ZDnldCompleted = ZTrue : _      'Pe BatchUp 09/12/91
  936.          RETURN                             'AUTO-UP MOD
  937.       IF NOT ZGetExtDesc THEN _
  938.          ZPrivateDoor = ZFalse : _
  939.          GOTO 20710
  940.        X = 184             'Pe 01/19/93
  941.        Gosub 21915        'Pe 01/19/93
  942.       ZMsgHeader$ = OutTxt$ + " " + ZFileNameHold$
  943.       ZSysopComment = ZTrue
  944.       ZMaxMsgLines = ZMaxExtendedLines
  945.       WasLL = ZRightMargin
  946.       ZRightMargin = 30 + ZMaxDescLen
  947.       IF ZRightMargin > 74 THEN _
  948.          ZRightMargin = 74
  949.       ZFileSysParm = 5
  950.       RETURN
  951. * REPLACING old line(s) by new
  952. 20705 ZMaxMsgLines = ZMaxMsgLinesDef
  953.       ZRightMargin = WasLL
  954. * ------[ first line different ]------
  955.       CALL UpdtUpload (ZCategoryName$(),ZCategoryCode$(),ZLinesInMsg,3)  'Pe 02/04/90
  956. * REPLACING old line(s) by new
  957. 20730 GOSUB 21780
  958. * ------[ first line different ]------
  959.        X = 160              'Pe 01/19/93
  960.        Gosub 21915        'Pe 01/19/93
  961.       CALL QuickTPut1 (OutTxt$)
  962.       ZAutoLogoffReq = ZFalse                'Pe 10/20/91
  963.       ZWasBatchTransfer = ZFalse             'Pe 03/02/92
  964.       ZUpBatchTransfer = ZFalse              'Pe 03/02/92
  965.       LastUpld = 0
  966.       ZPrivateDoor = ZFalse
  967. * REPLACING old line(s) by new
  968. 20735 CALL KillWork (ZFileName$)
  969. * ------[ first line different ]------
  970.       IF ZErrCode <> 0 THEN _
  971.          ZWasEL = 20736 : _
  972.          GOTO 21900
  973.       ZAnsIndex = ZLastIndex + 1
  974.       IndexSave = ZAnsIndex
  975.       ZLastIndex = 0
  976.       RETURN
  977. '
  978. ' *  Sysop ABORTED UPLOAD
  979. '
  980. * REPLACING old line(s) by new
  981. * ------[ first line different ]------
  982. 20745 X = 186              'Pe 01/19/93
  983.        Gosub 21915        'Pe 01/19/93
  984.        ZOutTxt$ = ZXOff$ + OutTxt$
  985.       GOTO 20675
  986. '
  987. ' *  CALCULATE DOWNLOAD TIME ESTIMATE
  988. '
  989. * REPLACING old line(s) by new
  990. 20760 IF ZErrCode <> 0 THEN _
  991. * ------[ first line different ]------
  992.        X = 187 : _              'Pe 01/19/93
  993.        Gosub 21915  : _        'Pe 01/19/93
  994.          CALL QuickTPut1 (OutTxt$ + " " +ZFileNameHold$) : _
  995.          CALL UpdtCalr (OutTxt$ + " "+ZFileName$,2) : _
  996.          ZOK = ZFalse : _
  997.          ZErrCode = 0 : _
  998.          ZBytesInFile# = 0 : _
  999.          RETURN
  1000.       ZBytesInFile# = LOF(2)
  1001.       ZNumDnldBytes! = LOF(2)
  1002.       ZOK = ZTrue
  1003.       IF SizeOnly THEN _
  1004.          SizeOnly = ZFalse : _
  1005.          RETURN
  1006.       ZBlocksInFile# = MaxBlock
  1007.       IF ZBatchTransfer THEN _
  1008.          BatchBlocks# =  BatchBlocks# + ZBlocksInFile# : _
  1009.          BatchBytes# = BatchBytes# + ZBytesInFile# : _
  1010.          CALL OpenWorkA (ZNodeWorkFile$) : _
  1011.          CALL PrintWorkA (ZFileName$) : _
  1012.          ZDownFiles = ZDownFiles + 1 : _
  1013.          CLOSE 2 : _
  1014.          RETURN
  1015.       ZDownFiles = 1
  1016. * REPLACING old line(s) by new
  1017. 20791 CALL CheckTimeRemain (MinsRemaining)
  1018.       IF ZSubParm = -1 THEN _
  1019.          ZFileSysParm = 6 : _
  1020.          RETURN
  1021.       ZOK = ZTrue
  1022.       Temp = ZExtraDnldTime
  1023.       CALL ChkAddedTime (Temp)
  1024.       Temp = MinsRemaining + Temp
  1025.       ZWasA = INT(ZBlocksInFile# / 60) + 1
  1026.       IF ZWasA <= Temp THEN _
  1027.          GOTO 20793
  1028. * ------[ first line different ]------
  1029.       IF ZDownFiles < 2 THEN _
  1030.          CALL AllCaps (ZFileNameHold$) : _
  1031.        X = 188 : _              'Pe 01/19/93
  1032.        Gosub 21915  : _        'Pe 01/19/93
  1033.          ZOutTxt$ = ZFileNameHold$ +OutTxt$ _
  1034.                  + STR$(ZWasA) + "  have" + STR$(Temp) : _
  1035.          CALL UpdtCalr (ZOutTxt$,2) : _
  1036.          CALL QuickTPut1 (ZOutTxt$) _
  1037.       ELSE CALL OpenWork (2,ZNodeWorkFile$) : _
  1038.            WHILE NOT EOF(2) : _
  1039.               CALL ReadDir (2,1) : _
  1040.               CALL BreakFileName (ZOutTxt$,DR$,ZWasY$,WasX$,ZTrue): _
  1041.               ZFileName$ = ZWasY$ + WasX$ : _
  1042.               X = 188 : _              'Pe 01/19/93
  1043.               Gosub 21915  : _        'Pe 01/19/93
  1044.               ZOutTxt$ = ZFileName$ + OutTxt$ _
  1045.                          + STR$(ZWasA) + "  have" + STR$(Temp) : _
  1046.               CALL UpdtCalr (ZOutTxt$,2) : _
  1047.            WEND : _
  1048.            CLOSE 2 : _
  1049.             X = 188 : _              'Pe 01/19/93
  1050.              Gosub 21915  : _        'Pe 01/19/93
  1051.            ZOutTxt$ = OutTxt$  _
  1052.                        + STR$(ZWasA) + "  have" + STR$(Temp) : _
  1053.            CALL QuickTPut1 (ZOutTxt$)
  1054.       CALL DelayTime (3)
  1055.       IF ZDownFiles < 2 THEN _
  1056.          GOTO 20792
  1057.       ZLastIndex = 0
  1058.        X = 189              'Pe 01/19/93
  1059.        Gosub 21915        'Pe 01/19/93
  1060.       ZOutTxt$ = OutTxt$
  1061.       ZTurboKey = - ZTurboKeyUser
  1062.       GOSUB 21668
  1063.       IF ZNo THEN _
  1064.          LastDnld = 0 : _
  1065.          GOTO 20792
  1066.       Temp = 0
  1067.       CALL OpenWork (2,ZNodeWorkFile$)
  1068.       WHILE NOT EOF(2)
  1069.          CALL ReadDir (2,1)
  1070.          CALL BreakFileName (ZOutTxt$,DR$,ZWasY$,WasX$,ZTrue)
  1071.          ZFileName$ = ZWasY$ + WasX$
  1072.          ZOutTxt$ = "Download " + ZFileName$ + " (Y,[N])"
  1073.          ZTurboKey = - ZTurboKeyUser
  1074.          GOSUB 21668
  1075.          IF ZYes THEN _
  1076.             Temp = Temp + 1 : _
  1077.             ZOutTxt$(Temp) = ZFileName$
  1078.       WEND
  1079.       CLOSE 2
  1080.       ZAnsIndex = 1
  1081.       ReStart = (Temp > 0)
  1082.       LastDnld = Temp
  1083.       ZLastIndex = Temp
  1084.       FOR WasX = 1 TO Temp
  1085.          ZUserIn$(WasX) = ZOutTxt$(WasX)
  1086.       NEXT
  1087. * REPLACING old line(s) by new
  1088. 20793 IF ZRatioRestrict# > 0 THEN _
  1089. * ------[ first line different ]------
  1090.        X = 190 : _              'Pe 01/19/93
  1091.        Gosub 21915  : _        'Pe 01/19/93
  1092.          CALL QuickTPut1 (OutTxt$) : _
  1093.          CALL CheckRatio (ZTrue)
  1094.       CALL AutoLogoff
  1095.       IF ZAutoEnd = 2 THEN _
  1096.       ZOK = ZFalse
  1097.       RETURN
  1098. * REPLACING old line(s) by new
  1099. 20851 ZWasY$ = ""
  1100.       CALL CheckCarrier
  1101.       IF ZSubParm = -1 THEN _
  1102.          ZFileSysParm = 7 : _
  1103.          RETURN
  1104.       RETURN
  1105. '
  1106. * ------[ first line different ]------
  1107. ' *  CHANGE TO 8 BIT FOR Xmodem
  1108. '
  1109. * DELETING old line(s)
  1110. 20860
  1111. 20900
  1112. 20903
  1113. 20920
  1114. 20922
  1115. 20930
  1116. 20960
  1117. 20970
  1118. 20990
  1119. * REPLACING old line(s) by new
  1120. 20996 WasSO = 0
  1121.       RETURN
  1122. '
  1123. * ------[ first line different ]------
  1124. ' STANDARD ENTRY FOR RBBS-PC'S COMMON TERMINAL OUTPUT ROUTINE
  1125. '
  1126. ' Modeled on lines 12975 to 12983 in RBBS-PC.BAS
  1127. * DELETING old line(s)
  1128. 20999
  1129. 21000
  1130. 21020
  1131. 21040
  1132. 21050
  1133. 21060
  1134. 21070
  1135. 21080
  1136. 21090
  1137. 21100
  1138. 21110
  1139. 21113
  1140. 21120
  1141. 21131
  1142. 21145
  1143. 21150
  1144. 21170
  1145. 21180
  1146. 21190
  1147. 21191
  1148. 21200
  1149. 21210
  1150. 21212
  1151. 21220
  1152. 21225
  1153. 21230
  1154. 21240
  1155. 21250
  1156. 21280
  1157. 21281
  1158. 21300
  1159. 21303
  1160. 21350
  1161. 21360
  1162. 21380
  1163. 21390
  1164. 21410
  1165. 21415
  1166. 21420
  1167. 21440
  1168. 21443
  1169. 21445
  1170. 21450
  1171. 21455
  1172. 21460
  1173. 21470
  1174. 21480
  1175. 21490
  1176. 21503
  1177. 21504
  1178. 21510
  1179. 21530
  1180. 21531
  1181. 21540
  1182. 21545
  1183. 21550
  1184. 21560
  1185. 21561
  1186. * REPLACING old line(s) by new
  1187. 21720 CALL LPrnt (WasD$,NumReturns)
  1188.       RETURN
  1189. '
  1190. * ------[ first line different ]------
  1191. ' * UPDATE DOWNLOAD STATISTICS
  1192. '
  1193. '  (formerly lines 50600 to 50614 in RBBS-PC.BAS
  1194. * DELETING old line(s)
  1195. 21750
  1196. * REPLACING old line(s) by new
  1197. 21760 GOSUB 21780
  1198.       IF ZFileSysParm > 1 THEN _
  1199.          RETURN
  1200.       IF ZBatchTransfer THEN _
  1201.          CALL LinesInFile (ZNodeWorkFile$,ZDownFiles) _
  1202.       ELSE ZDownFiles = 1
  1203. * ------[ first line different ]------
  1204.       IF NOT ZDnldCompleted THEN _     'Pe 05/31/91
  1205.          ZAutoLogoffReq = ZFalse : _
  1206.          ZWasDF$ = " Aborted" : _
  1207.          GOTO 21770
  1208.       CALL LogPDown (ZPersonalDnld,1+ZAnsIndex-FirstDnld)
  1209.       WasX = ((ZRatioRestrict# > 0) AND ZEnforceRatios AND ZFreeDnld)
  1210.       IF NOT WasX THEN _
  1211.          ZDnlds = ZDnlds + ZDownFiles : _
  1212.          ZGlobalDLToday! = ZGlobalDLToday! + ZDownFiles : _
  1213.          ZGlobalDnlds = ZGlobalDnlds + ZDownFiles : _
  1214.          ZDLBytes! = ZDLBytes! + ZNumDnldBytes! : _
  1215.          ZGlobalDLBytes! = ZGlobalDLBytes! + ZNumDnldBytes! : _
  1216.          ZDLToday! = ZDLToday! + ZDownFiles : _
  1217.          ZBytesToday! = ZBytesToday! + ZNumDnldBytes! : _
  1218.          ZGlobalBytesToday! = ZGlobalBytesToday! + ZNumDnldBytes!
  1219.       ZNumDnldBytes! = 0
  1220.       ZWasDF$ = " Downloaded"
  1221.       IF (ZAnsIndex = LastDnld OR NOT ZConcatFIles) THEN _
  1222.          CALL SkipLine (1) : _
  1223.        X = 191 : _              'Pe 01/19/93
  1224.        Gosub 21915  : _        'Pe 01/19/93
  1225.          CALL QuickTPut1 (OutTxt$)
  1226.          IF WasX THEN _
  1227.        X = 192 : _              'Pe 01/19/93
  1228.        Gosub 21915  : _        'Pe 01/19/93
  1229.             CALL QuickTPut1 (OutTxt$)
  1230. * DELETING old line(s)
  1231. 21768
  1232. * REPLACING old line(s) by new
  1233. * ------[ first line different ]------
  1234. 21773 IF ZTransferFunction = 1 THEN
  1235.      CALL BreakFileName (ZFileName$,DR$,WasX$,Extension$,ZTrue)
  1236.       ZWasZ$ = WasX$ + _
  1237.            Extension$ + _
  1238.            ZWasDF$ + _
  1239.            " at " + _
  1240.            ZTime$ + _
  1241.            " using " + _
  1242.            ZWasFT$ + _
  1243.            STR$(ZBytesInFile#)
  1244.       CALL UpdtCalr (ZWasZ$,2)
  1245.          IF  ZWasDF$ = " Downloaded" Then          'Pe021593
  1246.         Call MenuPlus (9)                          'Pe021593
  1247.       END IF                                       'Pe021593
  1248.    END IF
  1249.       IF ZBatchTransfer THEN _
  1250.          ZWasQ = ZWasQ - 1 : _
  1251.          GOTO 21772
  1252.       'CALL CheckRatio (ZFalse)
  1253. * REPLACING old line(s) by new
  1254. * ------[ first line different ]------
  1255. 21774  RETURN
  1256. '
  1257. '
  1258. ' *****   TURN ON INTERMEDIATE ECHO   ****
  1259. '
  1260. '  (formerly line 50620 in RBBS-PC.BAS
  1261. * REPLACING old line(s) by new
  1262. * ------[ first line different ]------
  1263. 21790  Call CheckCarrier                  'Pe 12/31/91
  1264.       IF ZSubParm = -1 THEN _             'Pe 12/31/91
  1265.          ZFileSysParm = 7 : _             'Pe 12/31/91
  1266.        Return                             'Pe 12/31/91
  1267.        IF ZEchoer$ = "I" THEN _
  1268.          CALL SetEcho ("R")
  1269.       RETURN
  1270. '
  1271. ' *****   DIRECTORY SEARCH   ****
  1272. '
  1273. '  (formerly lines 52900 to 52920 in RBBS-PC.BAS
  1274. * REPLACING old line(s) by new
  1275. * ------[ first line different ]------
  1276. 21810 X = 193              'Pe 01/19/93
  1277.        Gosub 21915        'Pe 01/19/93
  1278.        ZOutTxt$ = OutTxt$
  1279.       ZMacroMin = 99
  1280.       GOSUB 21668
  1281.       IF ZWasQ = 0 THEN _
  1282.          RETURN
  1283. * REPLACING old line(s) by new
  1284. 21820 WasRS$ = ZUserIn$(ZAnsIndex)
  1285.       WildSearch = (INSTR(WasRS$,"*") > 0 OR INSTR(WasRS$,"?") > 0)
  1286.       CALL AllCaps (WasRS$)
  1287.       IF RIGHT$(WasRS$,1) = "*" THEN _
  1288.          IF RIGHT$(WasRS$,2) <> ".*" THEN _
  1289.             WasRS$ = WasRS$ + ".*"
  1290.       SearchString$ = WasRS$
  1291.       SearchDate$ = ""
  1292.       ZJumpSearching = ZFalse
  1293.       WasA1$ = WasRS$
  1294. * ------[ first line different ]------
  1295.       ZExtendedOff = ZFalse 'ZTrue       'Pe 10/27/91
  1296.       GOTO 21867
  1297. '
  1298. ' *****  P - personal download  ****
  1299. '
  1300. '  (formerly lines 52950 to 52952 in RBBS-PC.BAS
  1301. * REPLACING old line(s) by new
  1302. * ------[ first line different ]------
  1303. 21854 RETURN
  1304. '
  1305. ' *  WasN - COMMAND FROM FILES MENU (DISPLAY NEW FILES SINCE Last DIR DISPLAY)
  1306. '
  1307. '  (formerly lines 53000 to 53070 in RBBS-PC.BAS
  1308. * REPLACING old line(s) by new
  1309. 21862 WasA1$ = RIGHT$(ZWasLM$,4) +_
  1310.             LEFT$(ZWasLM$,2)
  1311. * ------[ first line different ]------
  1312.        X = 194              'Pe 01/19/93
  1313.        Gosub 21915        'Pe 01/19/93
  1314.       ZOutTxt$ = OutTxt$ + WasA1$
  1315.       GOSUB 21668
  1316.       CALL AraAllCaps (ZUserIn$(),ZAnsIndex)
  1317.       IF ZWasQ = 0 OR ZUserIn$(ZAnsIndex) = "S" THEN _
  1318.          WasRS$ = ZWasLM$ : _
  1319.          GOTO 21866
  1320. * REPLACING old line(s) by new
  1321. 21866 SearchDate$ = WasRS$
  1322.       SearchString$ = ""
  1323.       ZJumpSearching = ZFalse
  1324. * ------[ first line different ]------
  1325.       ZExtendedOff = ZFalse 'ZTrue             'Pe 10/27/91
  1326.       ZUserIn$(ZAnsIndex) = "A"
  1327.        ZEndList = ZTrue          'Pe 12/01/91
  1328.        GOTO 21871                'Pe NewFile mod
  1329. * REPLACING old line(s) by new
  1330. * ------[ first line different ]------
  1331. 21867 CALL GetDirs (ZFalse)
  1332.       IF ZWasQ = 0 THEN _
  1333.          RETURN
  1334. * REPLACING old line(s) by new
  1335. 21880 WasQX = ZAnsIndex
  1336.       GOSUB 20157
  1337.       IF ZFileSysParm > 1 THEN _
  1338.          RETURN
  1339.       ZAnsIndex = ZAnsIndex + 1
  1340.       IF ZAnsIndex <= ZLastIndex THEN _
  1341.          GOTO 21875
  1342.       ListNew = ZFalse
  1343. * ------[ first line different ]------
  1344.       ZEndList = ZFalse       'Pe 12/01/91
  1345.       SearchString$ = ""
  1346.       SearchDate$ = ""
  1347.       RETURN
  1348. * REPLACING old line(s) by new
  1349. * ------[ first line different ]------
  1350. 21895  X = 195              'Pe 01/19/93
  1351.        Gosub 21915        'Pe 01/19/93
  1352.        CALL QuickTPut1 (OutTxt$)
  1353.        RETURN
  1354. '
  1355. ' *  MAIN FILE SYSTEM ERROR TRAP - ALL ERRORS PASS THROUGH THIS ROUTINE
  1356. '
  1357. '  (formerly lines 13000 to 13500 in RBBS-PC.BAS
  1358. * REPLACING old line(s) by new
  1359. 21900 IF ZDebug THEN _
  1360.          ZOutTxt$ = "RBBSSUB5 DEBUG Error Trap Entry ERL=" + _
  1361. * ------[ first line different ]------
  1362.              STR$(ZWasEL) + _
  1363.               " ERR=" + _
  1364.               STR$(ZErrCode) : _
  1365.          IF ZPrinter THEN _
  1366.             CALL Printit(ZOutTxt$) _
  1367.          ELSE CALL LPrnt(ZOutTxt$,1)
  1368.       IF ZWasEL = 20126 AND ZErrCode = 53 THEN _
  1369.          GOTO 20142
  1370.       IF ZWasEL = 20242 AND ZErrCode = 62 THEN _
  1371.          CALL UpdtCalr (ZFileSecFile$ + " bad format!",2) : _
  1372.          GOTO 20247
  1373.       IF ZWasEL = 20263 THEN _
  1374.          ZOutTxt$ = "<Download aborted>" : _
  1375.          ZDnldCompleted = ZFalse : _          'Pe
  1376.          ZAutoLogoffReq = ZFalse : _
  1377.          ZAutoEnd = 3 : _
  1378.          GOTO 20390
  1379.       IF ZWasEL = 20560 AND ZErrCode = 67 THEN _
  1380.          GOTO 20451
  1381.       IF ZWasEL = 20560 AND ZErrCode = 70 THEN _
  1382.          IF VAL(ZFreeSpace$) > 1999 THEN _
  1383.             GOTO 20610 _
  1384.          ELSE GOSUB 21895 : _
  1385.               GOTO 21700
  1386.       IF ZWasEL = 20620 THEN _
  1387.          GOTO 20670
  1388.       IF ZWasEL = 20650 THEN _
  1389.          GOTO 20670
  1390.       IF ZWasEL = 20736 AND ZErrCode = 53 THEN _
  1391.          GOTO 21700
  1392. * INSERTING new line(s)
  1393. 21915 Call GetRBBSString(X,RBBSString$)      'Pe 01/16/93
  1394.       OutTxt$ = RBBSString$                 'Pe 01/16/93
  1395.       Return
  1396. * REPLACING old line(s) by new
  1397. 63100 ' $SUBTITLE: 'DoorReturn - Subroutine to process requests from a door'
  1398. ' $PAGE
  1399. '
  1400. '  NAME    -- DoorReturn
  1401. '
  1402. '  INPUTS  -- PARAMETER                      MEANING
  1403. '             DOUTx.DEF               File of requests
  1404. '
  1405. '  OUTPUTS -- ZUserSecLevel     Revised Security Level
  1406. '
  1407. '  PURPOSE -- To give Doors a stable way to make requests
  1408. '             to the host.
  1409. '
  1410.       SUB DoorReturn STATIC
  1411.       IF NOT ZExitToDoors THEN _
  1412.          EXIT SUB
  1413.       CALL OpenUser (ZHighestUserRecord)
  1414.       FIELD 5, 128 AS ZUserRecord$
  1415.       FIELD 5,31 AS ZUserName$, _
  1416.               15 AS ZPswd$, _
  1417.                2 AS ZSecLevel$, _
  1418.               14 AS ZUserOption$,  _
  1419.               24 AS ZCityState$, _
  1420.                2 AS MachineType$, _
  1421.                1 AS ZBankTime$,_
  1422.                4 AS ZTodayDl$, _
  1423.                4 AS ZTodayBytes$, _
  1424.                4 AS ZDlBytes$, _
  1425.                4 AS ZULBytes$, _
  1426.               14 AS ZLastDateTimeOn$, _
  1427.                3 AS ZListNewDate$, _
  1428.                2 AS ZUserDnlds$, _
  1429.                2 AS ZUserUplds$, _
  1430.                2 AS ZElapsedTime$
  1431.       ZSubParm = 6
  1432.       CALL FileLock
  1433.       GET 5,ZUserFileIndex
  1434.       ZTimesLoggedOn = CVI(MID$(ZUserOption$,1,2))
  1435. * ------[ first line different ]------
  1436.       IF ZDoorDropFile$ = "R" THEN _                                 ' DD012702/DOORS
  1437.          CALL ReadDoorSys                                            ' DD012702/DOORS
  1438.       CALL SetSysOp
  1439.       CALL SetUserPref
  1440.       CALL SetUserUpDn
  1441.       ZGlobalsSet = ZFalse
  1442.       CALL SetGlobalUpDn
  1443.       ZElapsedTime = CVI(MID$(ZUserRecord$,127,2))
  1444.       IF ZDoorDropFile$ = "R" THEN _                                 ' DD012702/DOORS
  1445.          ZErrCode = 0 : _                                            ' DD012702/DOORS
  1446.          PUT 5,ZUserFileIndex                                        ' DD012702/DOORS
  1447.       ZFileName$ = "DOUT" + ZNodeID$ + ".DEF"
  1448.       CALL FindIt (ZFileName$)
  1449.       IF NOT ZOK THEN _
  1450.          GOTO 63197
  1451. * REPLACING old line(s) by new
  1452. 63110 WasX$ = LEFT$(ZOutTxt$(2),1)         ' ZWasSL = Security Level
  1453.       CALL CheckInt (ZOutTxt$(2))
  1454.       IF ZErrCode > 0 THEN _
  1455.          GOTO 63105
  1456.       IF WasX$ = "+" OR WasX$ = "-" THEN _
  1457.          ZWasA = ZUserSecLevel + ZTestedIntValue _
  1458.       ELSE ZWasA = ZTestedIntValue
  1459.       IF ZWasA < ZSysopSecLevel THEN _
  1460.          ZAdjustedSecurity = (ZWasA <> ZUserSecLevel) : _
  1461.          IF ZAdjustedSecurity THEN _
  1462. * ------[ first line different ]------
  1463.            Call MenuPlus (10) : _                    ' Pe Menu174
  1464.             ZUserSecLevel = ZWasA : _
  1465.             MID$(ZUserRecord$,47,2) = MKI$(ZWasA) : _
  1466.             Call GetRBBSString(196,RBBSString$) : _      'Pe 01/16/93
  1467.             OutTxt$ = RBBSString$ : _                'Pe 01/16/93
  1468.             CALL QuickTPut1 (OuTxt$ + STR$(ZWasA)) : _
  1469.             Call GetRBBSString(197,RBBSString$) : _      'Pe 01/16/93
  1470.             OutTxt$ = RBBSString$ : _                'Pe 01/16/93
  1471.             CALL UpdtCalr (OutTxt$+STR$(ZWasA),2)
  1472.       GOTO 63105
  1473. * REPLACING old line(s) by new
  1474. 63320 ' $SUBTITLE: 'ShellExit - sub to shell out from RBBS'
  1475. ' $PAGE
  1476. '
  1477. '  NAME    -- ShellExit
  1478. '
  1479. '  INPUTS  -- ShellTem$     String to invoke shell with
  1480. '
  1481. '  OUTPUTS -- none
  1482. '
  1483. '  PURPOSE -- Delay so that strings can finish printing.  Restore comm
  1484. '             port on return
  1485. '
  1486.       SUB ShellExit (ShellTem$) STATIC
  1487. * ------[ first line different ]------
  1488.       CALL DelayTime (4 + ZBPS)   'Pe 08/12/91
  1489.       IF NOT ZLocalUser THEN _
  1490.          IF ZFossil THEN _
  1491.             CALL FOSExit(ZComPort) _
  1492.          ELSE CLOSE 3 : _
  1493.               OUT ZModemCntlReg,INP(ZModemCntlReg) OR 1
  1494.       CLOSE 2
  1495.       CALL MetaGSR (ShellTem$,ZFalse)
  1496.       SHELL ShellTem$
  1497.       IF ZFossil THEN _
  1498.          IF NOT ZLocalUser THEN _
  1499.             CALL FOSinit(ZComPort,Result) : _
  1500.             IF Result = -1 THEN _
  1501.                CALL PScrn("ERROR INIT FOSSIL AFT EXTERNAL") : _
  1502.                SYSTEM
  1503.       CALL DelayTime (2)
  1504.       CALL RestoreCom
  1505.       END SUB
  1506. * REPLACING old line(s) by new
  1507. * ------[ first line different ]------
  1508. 63355 CALL GlobalSrchRepl (WasX$,"|",ZCarriageReturn$,ZTrue)        ' KG011201
  1509.       ZCommPortStack$ = ZCommPortStack$ + WasX$ + ZCarriageReturn$  ' STack
  1510.       GOTO 63336
  1511. * REPLACING old line(s) by new
  1512. * ------[ first line different ]------
  1513. 63396 CALL SmartText (ZOutTxt$,ZFalse, OverStrike,ZFalse)   'Pe 02/06/93
  1514.       CALL MetaGSR (ZOutTxt$,OverStrike)
  1515.       RETURN
  1516. * REPLACING old line(s) by new
  1517. 63397 IF EOF(6) THEN _         ' Read next line in macro
  1518. * ------[ first line different ]------
  1519.               ZMacroActive = ZFalse _
  1520.       ELSE CALL ReadDir (6,1) : _
  1521.            ZMacroActive = (ZErrCode = 0)
  1522.       RETURN
  1523. * REPLACING old line(s) by new
  1524. 63400 ' $SUBTITLE: 'LockAppend - prepares for file append'
  1525. ' $PAGE
  1526. '
  1527. '  NAME    -- LockAppend
  1528. '
  1529. '  INPUTS  -- ZWasEN$            Name of file to append to
  1530. '
  1531. '  OUTPUTS -- none
  1532. '
  1533. '  PURPOSE -- Locks and opens file to append to
  1534. '
  1535.       SUB LockAppend STATIC
  1536. * ------[ first line different ]------
  1537. IF ZNetWorkType <> 0 Then _       'Pe 04/04/92
  1538.       WasBX = &H4 : _            'Pe 03/16/92
  1539.       ZSubParm = 9 : _           'Pe 03/16/92
  1540.       CALL FileLock
  1541.       ZErrCode = 0
  1542.       CALL OpenWorkA (ZWasEN$)
  1543.       END SUB
  1544. * REPLACING old line(s) by new
  1545. 63410 ' $SUBTITLE: 'UnLockAppend - cleans up after file append'
  1546. ' $PAGE
  1547. '
  1548. '  NAME    -- UnLockAppend
  1549. '
  1550. '  INPUTS  -- none
  1551. '
  1552. '  OUTPUTS -- none
  1553. '
  1554. '  PURPOSE -- Unlocks and close file appending to
  1555. '
  1556.       SUB UnLockAppend STATIC
  1557. * ------[ first line different ]------
  1558. IF ZNetWorkType <> 0 Then _       'Pe 04/04/92
  1559.       WasBX = &H4 : _            'Pe 03/16/92
  1560.       ZSubParm = 10 : _          'Pe 03/16/92
  1561.       CALL FileLock
  1562.       CLOSE 2
  1563.       END SUB
  1564. * REPLACING old line(s) by new
  1565. 63422 IF EOF(2) OR ZNo OR (ZErrCode > 0) OR (ZSubParm < 0) THEN _
  1566.          Template$ = "" : _
  1567.          EXIT SUB
  1568.       IF FixedLength THEN _
  1569.          CALL ReadDir (2,1) : _
  1570.          ZGSRAra$(1) = ZOutTxt$ _
  1571.       ELSE CALL ReadParms (ZGSRAra$(),DataVar,1)
  1572.       WasX$ = Template$
  1573. * ------[ first line different ]------
  1574.       CALL SmartText (WasX$,ZTrue,OverStrike,ZFalse)  ' Pe 02/06/93
  1575.       CALL MetaGSR (WasX$,OverStrike)
  1576.       CALL BufAsUnit (WasX$)
  1577.       IF RecPause OR (ZPageLength > 0 AND (ZLinesPrinted >= ZPageLength-1)) THEN _
  1578.          CALL PauseExit : _
  1579.          EXIT SUB
  1580.       GOTO 63422
  1581.       END SUB
  1582. * REPLACING old line(s) by new
  1583. 63465 ' Forces a keyboard pause inside a macro
  1584.       SUB PauseExit STATIC
  1585.       ZSubParm = 4
  1586.       ZTurboKey = -ZTurboKeyUser
  1587. * ------[ first line different ]------
  1588.       ZOutTxt$ = ZMorePrompt$ + LEFT$(">",-1*ZExpertUser) + MID$("? : ",2*ZTurboKey+1,2) ' TC041610
  1589.       ZForceKeyboard = ZTrue
  1590.       ZNoAdvance = ZTrue
  1591.       CALL TPut
  1592.       ZLinesPrinted = 0
  1593.       ZUserIn$ = ""
  1594.       END SUB
  1595. * REPLACING old line(s) by new
  1596. 63470 ' $SUBTITLE: 'SetPrompt - sub to set prompts based on user security'
  1597. ' $PAGE
  1598. '
  1599. '  NAME    -- SetPrompt
  1600. '
  1601. '  INPUTS  -- PARAMETER           MEANING
  1602. '             ZBegMain          POSITION START OF MAIN CMDS
  1603. '             ZBegFile          POSITION START OF FILE CMDS
  1604. '             ZBegUtil          POSITION START OF UTIL CMDS
  1605. '             ZBegLibrary       POSITION START OF Library CMDS
  1606. '
  1607. '  OUTPUTS -- PRESENT.OPTS$         DISPLAY WHAT USER CAN DO (1st)
  1608. '             CALLERS.OPTS$         DISPLAY WHAT USER CAN DO (2nd)
  1609. '             ZMainOpts$            MAIN OPTS USER CAN DO
  1610. '             ZFileOpts$            FILE OPTS USER CAN DO
  1611. '             ZUtilOpts$            UTIL OPTS USER CAN DO
  1612. '             ZLibOpts$         Library OPTS USER CAN DO
  1613. '
  1614. '  PURPOSE -- Sets command line display of what user can do by
  1615. '             section and display of what all user can do
  1616. '
  1617.       SUB SetPrompt STATIC
  1618.       First = ZBegMain
  1619.       Last = ZBegFile - 1
  1620.       CALL SetOpts (ZMainOpts$,ZInvalidMainOpts$,First,Last)
  1621.       First = ZBegFile
  1622.       Last = ZBegUtil - 1
  1623.       CALL SetOpts (ZFileOpts$,ZInvalidFileOpts$,First,Last)
  1624.       First = ZBegUtil
  1625.       Last = ZBegLibrary - 1
  1626.       CALL SetOpts (ZUtilOpts$,ZInvalidUtilOpts$,First,Last)
  1627.       First = ZBegLibrary
  1628.       Last = ZBegLibrary + 6
  1629.       CALL SetOpts (ZLibOpts$,ZInvalidLibraryOpts$,First,Last)
  1630.       First = 50
  1631.       Last = 56
  1632.       CALL SetOpts (SysOpt$,ZInvalidSysOpts$,First,Last)
  1633.       First = 46
  1634.       Last = 49
  1635.       CALL SetOpts (GlobalOpts$,InvalidGlobalOpts$,First,Last)
  1636.       IF LEN(SysOpt$) > 0 THEN _
  1637.          ZSystemOpts$ = "Sysop: " + _
  1638.                         SysOpt$
  1639.       ZMainOpts$ = GlobalOpts$ + ZMainOpts$ + _
  1640.                    MID$(ZAllOpts$,INSTR(ZOrigCommands$,"G"),1)
  1641.       ZFileOpts$ = GlobalOpts$ + _
  1642.                    ZFileOpts$
  1643.       ZUtilOpts$ = GlobalOpts$ + _
  1644.                    ZUtilOpts$
  1645.       ZLibOpts$ = GlobalOpts$ + _
  1646.                       ZLibOpts$
  1647.       CALL SortString (SysOpt$)
  1648.       CALL SortString (ZMainOpts$)
  1649.       ZMainOpts$ = ZMainOpts$ + _
  1650.                    SysOpt$
  1651.       CALL SortString (ZFileOpts$)
  1652.       CALL SortString (ZUtilOpts$)
  1653.       CALL SortString (ZLibOpts$)
  1654.       CALL AddCommas (ZMainOpts$)
  1655.       CALL AddCommas (ZFileOpts$)
  1656.       CALL AddCommas (ZUtilOpts$)
  1657.       CALL AddCommas (ZLibOpts$)
  1658.       ZDirPrompt$ = "What directory(s) (" + _
  1659. * ------[ first line different ]------
  1660.          MID$("U)pload,A)ll,P)ers,L)ist,E)xtra,[Q]uit)",8 * (ZUserSecLevel => ZMinSecToView) + 9)
  1661.       ZQuitPromptExpert$ = "QUIT C,S, or to F,[M],U"
  1662.       ZQuitPromptNovice$ = "QUIT C)onference, S)ession or to section " + _
  1663.                             "F)ile, [M]ain, U)til"
  1664.       ZQuitList$ = "FMUS@C"
  1665.       IF ZUserSecLevel < ZOptSec(18) THEN _
  1666.          ZQuitPromptExpert$ = LEFT$(ZQuitPromptExpert$,23) : _
  1667.          ZQuitPromptNovice$ = LEFT$(ZQuitPromptNovice$,61) : _
  1668.          MID$(ZQuitList$,5) = " "
  1669.       IF ZUserSecLevel < ZOptSec(15) THEN _
  1670.          ZQuitPromptExpert$ = LEFT$(ZQuitPromptExpert$,22) + _
  1671.                                MID$(ZQuitPromptExpert$,25) : _
  1672.          ZQuitPromptNovice$ = LEFT$(ZQuitPromptNovice$,56) + _
  1673.                                MID$(ZQuitPromptNovice$,63) : _
  1674.          MID$(ZQuitList$,3,1) = " "
  1675.       IF ZUserSecLevel < ZOptSec(6) THEN _
  1676.          ZQuitPromptExpert$ = LEFT$(ZQuitPromptExpert$,16) + _
  1677.                                MID$(ZQuitPromptExpert$,19) : _
  1678.          ZQuitPromptNovice$ = LEFT$(ZQuitPromptNovice$,41) + _
  1679.                                MID$(ZQuitPromptNovice$,49) : _
  1680.          MID$(ZQuitList$,1,1) = " "
  1681.       CALL SetSection
  1682.       END SUB
  1683. * REPLACING old line(s) by new
  1684. 63540 ' Match Name to one in message file
  1685.       SUB ChkMsgName (MsgFromCaller,MsgToCaller) STATIC
  1686. * ------[ first line different ]------
  1687.      IF ZNewUserDGS THEN _                                        'DGS-NEW
  1688.         CALL MsgNameMatch ("NEWUSER",ZActiveUserName$,6,MsgFromCaller) : _      'DGS-NEW
  1689.         CALL MsgNameMatch ("NEWUSER",ZActiveUserName$,37,MsgToCaller) : _       'DGS-NEW
  1690.      Exit Sub
  1691.       IF NOT ZRemoteSysop THEN _
  1692.          WasX$ = LEFT$("SYSOP",-5*ZSysop) : _
  1693.          CALL MsgNameMatch (ZorigUserName$,ZActiveUserName$,6,MsgFromCaller) : _ 'Dgs-ALSMod
  1694.          CALL MsgNameMatch (ZorigUserName$,ZActiveUserName$,37,MsgToCaller)  : _    'Dgs-ALSMod
  1695.          EXIT SUB
  1696.       CALL MsgNameMatch ("SYSOP",ZSysopFullName$,6,MsgFromCaller)
  1697.       IF NOT MsgFromCaller THEN _
  1698.          CALL MsgNameMatch (ZOrigUserName$,"",6,MsgFromCaller)
  1699.       CALL MsgNameMatch ("SYSOP",ZSysopFullName$,37,MsgToCaller)
  1700.       IF NOT MsgToCaller THEN _
  1701.          CALL MsgNameMatch (ZOrigUserName$,"",37,MsgToCaller)
  1702.       END SUB
  1703.       SUB MsgNameMatch (PrimeName$,AltName$,SearchPos,Found) STATIC
  1704.       WasX$ = LEFT$(PrimeName$+"  ",22-8*(SearchPos < 7))
  1705.       GOSUB 63542
  1706.       IF Found OR AltName$ = "" THEN _
  1707.          EXIT SUB
  1708.       WasX$ = LEFT$(AltName$ + "  ",22-8*(SearchPos < 7))
  1709.       GOSUB 63542
  1710.       EXIT SUB
  1711. * REPLACING old line(s) by new
  1712. 63542 WasY$ = MID$(ZMsgRec$,SearchPos,LEN(WasX$))
  1713. * ------[ first line different ]------
  1714.       CALL SmartText(WasY$,ZFalse, OverStrike,ZFalse)   'Pe 02/05/93
  1715.       CALL AllCaps(WasY$)                'SM091908
  1716.       WasY$ = LEFT$(WasY$,LEN(WasX$))            'SM091908
  1717.       ZWasDF = INSTR(WasY$,"@")
  1718.       IF ZWasDF > 0 THEN _
  1719.          MID$(WasY$,ZWasDF) = "      "
  1720.       Found = (WasY$ = WasX$)
  1721.       RETURN
  1722.       END SUB
  1723. * REPLACING old line(s) by new
  1724. 63560 ' Set specified user flag
  1725.       SUB SetUserFlag (RcvrRecNum, ChangeIndex, WhatGetting$) STATIC
  1726.       FIELD #5, 128 AS ZUserRecord$
  1727.       IF RcvrRecNum > 0 THEN _
  1728.          ZUserFileIndex = RcvrRecNum : _
  1729.          ZSubParm = 6 : _
  1730.          CALL FileLock : _
  1731.          GET 5, RcvrRecNum : _
  1732.          WasX = CVI(MID$(ZUserRecord$,57,2)) : _
  1733.          MID$(ZUserRecord$,57,2) = MKI$(WasX OR ChangeIndex) : _
  1734.          PUT 5, RcvrRecNum : _
  1735.          ZSubParm = 8 : _
  1736.          CALL FileLock : _
  1737. * ------[ first line different ]------
  1738.          Call GetRBBSString(198,RBBSString$) : _      'Pe 01/16/93
  1739.           OutTxt$ = RBBSString$ : _                'Pe 01/16/93
  1740.          CALL QuickTPut1 (ZWorkAra$(1) + OutTxt$ + " " + WhatGetting$) : _
  1741.          RcvrRecNum = 0
  1742.       END SUB
  1743. * REPLACING old line(s) by new
  1744. 63580 ' Displays user record
  1745.       SUB DispUserRec (ToPrint) STATIC
  1746.          ZOK = ZFalse
  1747.          WasX$ = MID$(ZUserRecord$,ZStartHash,ZLenHash)
  1748.          IF ASC(WasX$) = 0 OR LEFT$(WasX$,3) = "   " THEN _
  1749.             EXIT SUB
  1750.          WasOF = CVI(ZSecLevel$)
  1751.          IF WasOF > ZUserSecLevel THEN _
  1752.             IF NOT ZGlobalSysop THEN _
  1753.                EXIT SUB
  1754.          ZOutTxt$ = ZFG4$ + RIGHT$("     " + STR$(LOC(5)),4) + _
  1755.               ":" + _
  1756.               ZFG1$ + ZUserName$ + _
  1757.               ZFG2$ + "SECURITY" + _
  1758.               RIGHT$("      " + STR$(WasOF),6) + _
  1759.               " "
  1760. * ------[ first line different ]------
  1761.          IF WasOF < ZSysopSecLevel THEN _                           'ST120501
  1762.          ZOutTxt$ = ZOutTxt$ + _
  1763.               ZFG3$ + "Password= " + _
  1764.               ZPswd$ + ZEmphasizeOff$
  1765.          GOSUB 63583
  1766.          IF WasOF < ZOrigMainSec THEN _
  1767.             ZOutTxt$ = ZEmphasizeOn$ + "<Locked out>" + ZEmphasizeOff$ + SPACE$(7) _
  1768.          ELSE IF WasOF >= ZSysopSecLevel THEN _
  1769.             ZOutTxt$ = ZEmphasizeOn$ + "  (SysOp)  " + ZEmphasizeOff$ + SPACE$(8) _
  1770.          ELSE ZOutTxt$ = SPACE$(19)
  1771.          ZOutTxt$ = ZOutTxt$ + _
  1772.               ZLastDateTimeOn$ + _
  1773.              "   " + _
  1774.              ZFG4$ + ZCityState$ + ZEmphasizeOff$
  1775.          GOSUB 63583
  1776.          ZOutTxt$ = "  DOWNLOADS = " + _
  1777.              RIGHT$("     " + STR$(CVI(ZUserDnlds$)),5) + _
  1778.              "   " + _
  1779.              "UPLOADS = " + _
  1780.              RIGHT$("     " + STR$(CVI(ZUserUplds$)),5) + _
  1781.              "   " + _
  1782.              " Times on ="
  1783.           ZOutTxt$ = ZOutTxt$ + RIGHT$("     " + STR$(CVI(MID$(ZUserOption$,1,2))),5) + _
  1784.              "   TIME USED= " + _
  1785.              STR$(CVI(ZElapsedTime$)) + _
  1786.              " Min"
  1787.          GOSUB 63583
  1788.          ZOutTxt$ = "  Bank Time : " +_
  1789.             RIGHT$("     " + STR$(ASC(ZBankTime$)),5)
  1790.          GOSUB 63583
  1791.          IF NOT ZEnforceRatios THEN _
  1792.             GOTO 63581
  1793.          ZOutTxt$ = "BYTES: Dwn=" + STR$(CVS(ZDlBytes$)) + _
  1794.               "  Up=" + STR$(CVS(ZULBytes$)) + _
  1795.               " TODAY Dwn: #=" + STR$(CVS(ZTodayDl$)) + _
  1796.               " Bytes=" + STR$(CVS(ZTodayBytes$))
  1797.          GOSUB 63583
  1798. * REPLACING old line(s) by new
  1799. 63600 ' MarkItems - Converts a list of items ZUserIn$(), items ZAnsIndex
  1800.       '             thru ZLastIndex, into a marked list MarkedList$.
  1801.       '
  1802.       SUB MarkItems (IsMarking,MarkedList$,MarkedDesc$) STATIC
  1803.       IF NOT IsMarking THEN _
  1804.          EXIT SUB
  1805.       FOR Temp = ZAnsIndex to ZLastIndex
  1806. * ------[ first line different ]------
  1807.         MarkedList$ = MarkedList$ + ZUserIn$(Temp) + ZCarriageReturn$
  1808. '
  1809. 'IF MarkedDesc$ = "file" then 
  1810. '      CALL AllCaps(ZUserIn$(Temp))              'ANSIEd
  1811. '      CALL Remove (ZUserIn$(Temp),", ")
  1812. '      CALL RotorsDir (ZUserIn$(Temp),ZSubDir$(),ZSubDirCount + _      'Pe 06/01/92
  1813. '                      ((ZUserSecLevel < ZMinSecToView) OR _       'Pe 06/01/92
  1814. '                       NOT ZCanDnldFromUp),MarkingTime,"D")       'Pe 06/01/92
  1815. '               IF NOT ZOK Then _
  1816. '                  ZUserIn$(Temp) = "" : _
  1817. '               Call QuickTput( ZUserIn$(Temp) + "NOT FOUND",1)
  1818. '
  1819. '         END IF
  1820. '
  1821. '
  1822.       NEXT
  1823.       CALL ReportMarked (MarkedList$,MarkedDesc$)
  1824.       END SUB
  1825.       SUB ReportMarked (MarkedList$,ListDesc$) STATIC
  1826.       CALL FindLast (MarkedList$,ZCarriageReturn$,Temp,ZLastIndex)
  1827.       CALL QuickTPut1 (STR$(ZLastIndex) + " " + ListDesc$ + "(s) now marked")
  1828.       ZLastIndex = 0
  1829.       END SUB
  1830. * REPLACING old line(s) by new
  1831. 63615 ' * Sets up next message base link *
  1832.       SUB NextConf (DoJoin) STATIC
  1833.       IF ZLinkedConf$ = "" OR (NOT DoJoin) THEN _
  1834.          EXIT SUB
  1835.       EndConf = INSTR(ZLinkedConf$,ZCarriageReturn$)
  1836.       ZHomeConf$ = LEFT$(ZLinkedConf$,EndConf-1)
  1837.       IF ZNonStop THEN _
  1838. * ------[ first line different ]------
  1839.             Call GetRBBSString(199,RBBSString$) : _      'Pe 01/16/93
  1840.             OutTxt$ = RBBSString$ : _                'Pe 01/16/93
  1841.          CALL QuickTPut1 (OutTxt$ + " " + ZHomeConf$) _
  1842.       ELSE _
  1843.         Call GetRBBSString(200,RBBSString$) : _      'Pe 01/16/93
  1844.             OutTxt$ = RBBSString$ : _                'Pe 01/16/93
  1845.          ZOutTxt$ = OutTxt$ + " " + ZHomeConf$ + " ([Y],N)" : _
  1846.          ZTurboKey = -ZTurboKeyUser : _
  1847.          ZSubParm = 1 : _
  1848.          CALL TGet : _
  1849.          IF ZNo THEN _
  1850.             ZHomeConf$ = "" : _
  1851.             ZGlobalRead = ZFalse : _
  1852.             EXIT SUB
  1853.       ZLinkedConf$ = RIGHT$(ZLinkedConf$,LEN(ZLinkedConf$)-EndConf)
  1854.       END SUB
  1855. * REPLACING old line(s) by new
  1856. 63625 ' * Sets SysOp security variables Formerly 5370 of rbbs-pc.bas
  1857.       ' * Returns ZWasA true when remote or global sysop
  1858.       SUB SetSysOp STATIC
  1859.       ZRemoteSysop = ((ZActiveUserName$ = ZSecretName$) OR _
  1860. * ------[ first line different ]------
  1861.                       (ZOrigUserName$ = ZSecretName$)) _
  1862.       OR _
  1863.       (ZActivUserName$ ="SYSOP")     'LK 12/05/91
  1864.       ZWasA = ZRemoteSysop
  1865.       ZGlobalSysop = (ZGlobalSysop OR (ZWasA AND ZOrigCnfg$ = ZConfigFileName$))
  1866.       IF ZGlobalSysop THEN _
  1867.          ZWasA = ZTrue
  1868.       END SUB
  1869. * REPLACING old line(s) by new
  1870. 63630 ' * Sets the user preferences based on user record.
  1871.       ' * Formerly in RBBS-PC.BAS
  1872.       SUB SetUserPref STATIC
  1873.       IF ZWasA THEN _
  1874.          ZUserSecLevel = ZSysopSecLevel _
  1875.       ELSE ZUserSecLevel = CVI(ZSecLevel$)
  1876.       ZBankTime = ASC(ZBankTime$)
  1877.       ZLastMsgRead = CVI(MID$(ZUserOption$,3,2))
  1878.       ZUserXferDefault$ = MID$(ZUserOption$,5,1)
  1879.       IF ZUserXferDefault$ = " " THEN _
  1880.          ZUserXferDefault$ = "N"
  1881.       CALL XferType (2,ZTrue)
  1882.       WasX = ASC(MID$(ZUserOption$,6,1))
  1883.       ZWasGR = (WasX MOD 3)
  1884.       ZBoldText$ = CHR$(48 - (WasX > 50))
  1885.       ZUserTextColor = (WasX - ZWasGR)/3 + 21
  1886.       IF ZUserTextColor > 37 THEN _
  1887.          ZUserTextColor = ZUserTextColor - 7
  1888.       IF ZEmphasizeOff$ <> "" THEN _
  1889.          CALL QuickTPut (ZColorReset$,0)
  1890.       IF ZEmphasizeOnDef$ <> "" THEN _
  1891.          ZEmphasizeOff$ = ZEscape$ + "[" + ZBoldText$ + ";40;" + MID$(STR$(ZUserTextColor),2) + "m" _
  1892.       ELSE ZEmphasizeOff$ = ""
  1893.       IF ZWasGR = 1 AND NOT ZEightBit THEN _
  1894.          ZWasGR = 0
  1895.       CALL SetGraphic (ZWasGR)
  1896.       ZRightMargin = CVI(MID$(ZUserOption$,7,2))
  1897.       IF ZRightMargin > 72 THEN _
  1898.          ZRightMargin = 72
  1899. * ------[ first line different ]------
  1900.            IF NOT ZConfMode THEN _
  1901.          ZWasCI$ = ZCityState$ : _
  1902.       CALL Trim (ZWasCI$)
  1903.       UserOptions = CVI(MID$(ZUserOption$,9,2))
  1904.       ZPromptBell = (UserOptions AND 1) > 0
  1905.       ZExpertUser = (UserOptions AND 2) > 0
  1906.       CALL SetExpert
  1907.       ZNulls = (UserOptions AND 4) > 0
  1908.       ZUpperCase = (UserOptions AND 8) > 0
  1909.       ZLineFeeds = (UserOptions AND 16) > 0
  1910.       ZCheckBulletLogon = (UserOptions AND 32) > 0
  1911.       ZSkipFilesLogon = (UserOptions AND 64) > 0
  1912.       ZFullScreenEditor = (UserOptions AND 128) > 0    'Pe 09/02/91
  1913.       ZReqQuesAnswered = (UserOptions AND 256) > 0
  1914.       ZMailWaiting = (UserOptions AND 512) > 0
  1915.       WasX = (UserOptions AND 1024 ) > 0
  1916.       CALL SetHiLite (NOT WasX)
  1917.       IF NOT ZHiLiteOff THEN _
  1918.          CALL QuickTPut (ZEmphasizeOff$,0)
  1919.       ZTurboKeyUser = (UserOptions AND 2048) > 0
  1920.       ZTurboKey = ZFalse
  1921.       ZFileWaiting = (UserOptions AND 4096) > 0
  1922.             REM ** Change to:                                      **
  1923.       REM ** ZAvailableForChat = (UserOptions AND 8192) = 0 **   'Rchat-Mpl
  1924.       REM ** If you want availability to be default ON       **
  1925.  
  1926.       ZAvailableForChat = (UserOptions AND 8192) > 0           ' RCHAT-Mpl
  1927.       CALL SetRegDisplay
  1928.       ZPageLength = ASC(MID$(ZUserOption$,13,1))
  1929.       IF ZSubBoard THEN _
  1930.          GOTO 63632
  1931.       WasX$ = ZEchoer$
  1932.       ZEchoer$ = MID$(ZUserOption$,14,1)
  1933.       IF INSTR("ICR",ZEchoer$) = 0 THEN _
  1934.          ZEchoer$ = "R"
  1935.       IF WasX$ <> ZEchoer$ THEN _
  1936.          CALL ReportEcho
  1937.       CALL SetEcho (ZEchoer$)
  1938. * REPLACING old line(s) by new
  1939. 63635 ' * Reports who is doing echoing.  Formerly 9525 of rbbs-pc.bas
  1940.       SUB ReportEcho STATIC
  1941.       IF ZEchoer$ = "R" THEN _
  1942.          ZOutTxt$ =  "RBBS now set" _
  1943.       ELSE IF ZEchoer$ = "C" THEN _
  1944. * ------[ first line different ]------
  1945.             Call GetRBBSString(201,RBBSString$) : _      'Pe 01/16/93
  1946.             ZOutTxt$ = RBBSString$  _                'Pe 01/16/93
  1947.            ELSE  Call GetRBBSString(202,RBBSString$) : _      'Pe 01/16/93
  1948.            ZOutTxt$ = RBBSString$                      'Pe 01/16/93
  1949.         Call GetRBBSString(203,RBBSString$)       'Pe 01/16/93
  1950.             OutTxt$ = RBBSString$                 'Pe 01/16/93
  1951.       CALL QuickTPut1 (ZOutTxt$ + OutTxt$)
  1952.       END SUB
  1953. * REPLACING old line(s) by new
  1954. 63640 ' * Welcomes caller on
  1955. * ------[ first line different ]------
  1956.       SUB SayWelcome (anystring$,FF) STATIC   'Pe 08/01/92
  1957.       On FF Goto 63641,63643,63644       'Pe 08/01/92
  1958. * INSERTING new line(s)
  1959. 63641 LOCATE 24,1                  'Pe 08/01/92
  1960.       CALL AMorPM
  1961.       ZUserLogonTime! = TIMER
  1962.       ZTimeLoggedOn$ = TIME$
  1963.       ZLinesPrinted = 0
  1964.       ZExpertUser = ZFalse
  1965.       CALL SetExpert
  1966.       ZOutTxt$ = ""
  1967.       IF ZMaxNodes > 1 THEN _
  1968.          ZOutTxt$ = " - Node " + ZNodeID$
  1969.       IF ZReliableMode THEN _
  1970.          ZOutTxt$ = ZOutTxt$ + " (Reliable)"
  1971. '     Call DelayTime (7)  'delay 7 seconds for high speed modems 'JK11/18/92
  1972. '      CALL QuickTPut1 ("Welcome to " + ZRBBSName$ + ZOutTxt$)  'Pe 06/26/92
  1973.       CALL TestANSI
  1974.       ZTestParity = ZTrue
  1975.       ZStopInterrupts = ZTrue
  1976.       ZFileName$ = ZPreLog$
  1977.       CALL FlushCom (WasX$)
  1978.       ZCommPortStack$ = ""
  1979. Exit Sub                         'Pe 08/01/92
  1980.  
  1981. 63643 IF NOT ZNewUser THEN _
  1982.      CALL QuickTPut1 (ZFG1$ +"Times on   :" + STR$(ZTimesLoggedOn) + ZCrLf$ +_
  1983.                       + ZFG2$ +"Last on was: " + anystring$ + ZEmphasizeOff$)
  1984.  IF ZRemindFileXfers OR NOT ZNewUser THEN _
  1985.        CALL CheckRatio (ZFalse)
  1986. Exit Sub
  1987.  
  1988. 63644 CALL QuickTPut1 (ZFG1$+"Logging " + ZActiveUserName$)
  1989.     Temp1$ =  MID$(ZBaudParity$,INSTR(ZBaudParity$," B"))
  1990. CALL QuickTPut1 (ZFG2$ + "RBBS-PC " + ZVersionID$ + ZCrLf$ + _
  1991.                  ZFG3$ + "Node " + ZNodeID$)
  1992. Call QuickTput1 (ZFG4$ + "Line speed " + ZCBaud$ + temp1$+ZFG1$ +_ 
  1993.                 ", Host operating at " + ZModemInitBaud$ + temp1$ + ZEmphziseOff$)
  1994. '                     ", Host operating at " + anystring$+ ZEmphziseOff$)
  1995. Call SkipLine (1) 
  1996.     IF ZMaxNodes > 1 THEN                                        ' CHAT0805
  1997.        CALL LogNewForChat (ZMaxNodes)                            ' CHAT0805
  1998.     END IF                                                       ' CHAT0805
  1999.  
  2000.       END SUB
  2001.  
  2002. * REPLACING old line(s) by new
  2003. 63656 CALL GetPassword
  2004.       IF ZErrCode <> 0 THEN _
  2005.          CALL UpdtCalr (ZPswdFile$ + " bad format!",2) : _
  2006.          GOTO 63659
  2007.       IF MatchPass THEN _
  2008.          ZTempPassword$ = LEFT$(ZTempPassword$ + SPACE$(15),15) : _
  2009.          IF MatchPass$ <> ZTempPassword$ THEN _
  2010.             GOTO 63654 _
  2011.          ELSE IF ZUserSecLevel >= ZMinSecForTempPswd THEN _
  2012.                  GOTO 63658 _
  2013.               ELSE GOTO 63654
  2014. * ------[ first line different ]------
  2015.    IF ZUserSecLevel <> ZTempSecLevel OR ZTempPassword$ <> "" THEN _
  2016.          GOTO 63654
  2017.       IF ZStartTime = 0 THEN _
  2018.          GOTO 63658
  2019.       WorkTime$ = TIME$
  2020.       TestTime = VAL(LEFT$(WorkTime$,2) + MID$(WorkTime$,4,2))
  2021.       IF TestTime => ZStartTime AND TestTime <= ZEndTime THEN _
  2022.          GOTO 63658
  2023.       IF ZEndTime < ZStartTime THEN _
  2024.          IF TestTime => ZStartTime OR TestTime <= ZEndTime THEN _
  2025.             GOTO 63658
  2026.       GOTO 63654
  2027. * REPLACING old line(s) by new
  2028. 63675 SUB SetUserUpDn STATIC
  2029.       ZDnlds = CVI(ZUserDnlds$)
  2030.       ZUplds = CVI(ZUserUplds$)
  2031.       ZBankTime = ASC(ZBankTime$)
  2032.       IF ZEnforceRatios THEN _
  2033.          ZDLToday! = CVS(ZTodayDl$) : _
  2034.          ZBytesToday! = CVS(ZTodayBytes$) : _
  2035.          ZDLBytes! = CVS(ZDlBytes$) : _
  2036.          ZULBytes! = CVS(ZULBytes$)
  2037.       END SUB
  2038.       SUB SetGlobalUpDn STATIC
  2039.       IF NOT ZGlobalsSet THEN _
  2040.          ZGlobalsSet = ZTrue : _
  2041.          ZGlobalDnlds = ZDnlds : _
  2042.          ZGlobalUplds = ZUplds : _
  2043.          ZGlobalDLToday! = ZDLToday! : _
  2044.          ZGlobalBytesToday! = ZBytesToday! : _
  2045.          ZGlobalDLBytes! = ZDLBytes! : _
  2046.          ZGlobalULBytes! = ZULBytes! : _
  2047.          ZGlobalBankTime = ZBankTime
  2048.       END SUB
  2049. * ------[ first line different ]------
  2050. '
  2051. * REPLACING old line(s) by new
  2052. 63700 ' $SUBTITLE: 'TestANSI - test caller for ANSI support'
  2053. ' $PAGE
  2054. '
  2055. '  NAME    -- TestANSI
  2056. '                                  MEANING
  2057. '  INPUTS  -- ZTestANSITime   # of seconds to wait for ANSI response
  2058. '                             0 = do not test for ANSI
  2059. '
  2060. * ------[ first line different ]------
  2061. '  OUTPUTS -- ZCanANSIChat      = ZTrue if ANSIChat possible         ' DD071301/CHAT
  2062. '
  2063. '  PURPOSE -- Test callers' software for support of ANSI graphics
  2064. '
  2065.       SUB TestANSI STATIC
  2066.       IF ZTestANSITime < 1 THEN _
  2067.          GOTO 63705
  2068.       IF ZLocalUser THEN _
  2069.          IF ZDOSAnsi THEN _
  2070.             GOTO 63710 _
  2071.          ELSE GOTO 63705
  2072.         Call GetRBBSString(204,RBBSString$)      'Pe 01/16/93
  2073.         OutTxt$ = RBBSString$                'Pe 01/16/93
  2074.       CALL QuickTPut (OutTxt$ ,2)
  2075.       CALL FlushCom(Temp$)
  2076.       CALL PutCom (ZEscape$ + "[6n")
  2077.       CALL DelayTime(ZTestANSITime)
  2078.       CALL WipeLine (5)
  2079.       CALL FlushCom(Temp$)
  2080.       CALL WipeLine (5)
  2081.       Temp = INSTR(Temp$,ZEscape$ + "[")
  2082.       IF Temp > 0 THEN _
  2083.          Temp = INSTR(Temp,Temp$,"R") : _
  2084.          IF TEMP > 0 AND TEMP < 9 THEN _
  2085.             GOTO 63710
  2086. * REPLACING old line(s) by new
  2087. 63710 CALL SetGraphic(2)
  2088.       ZHiLiteOff = ZFalse
  2089. * ------[ first line different ]------
  2090.      CALL QuickTPut1 ("*ANSI Color  Detected*")
  2091.       IF ZDOSANSI THEN _
  2092.          ZCanANSIChat = ZTrue        ' DD071301/CHAT
  2093.       END SUB
  2094. * REPLACING old line(s) by new
  2095. 63720 SUB AraAllCaps (Ara$(1),WhichElement) STATIC
  2096.       Temp$ = Ara$(WhichElement)
  2097.       CALL AllCaps (Temp$)
  2098.       Ara$(WhichElement) = Temp$
  2099.       END SUB
  2100. * ------[ first line different ]------
  2101. '
  2102. '******************** INSERTED AutoLogoff here ******************
  2103. '
  2104. ' $SUBTITLE: 'AutoLogOff - Subroutine to  to log off after transfer'
  2105. ' $PAGE
  2106. '
  2107.   SUB AutoLogOff STATIC
  2108.  ZAutoEnd = 0
  2109.  ZAbort = ZFalse    'Pe 01/19/92
  2110.   IF ZGetExtDesc = ZTrue or ZOK = ZFalse or ZAutoLogOffReq = ZTrue THEN _
  2111.     EXIT SUB
  2112.  ZSubParm = 1
  2113. ZStackC = ZTrue    'Pe 12/21/91
  2114. * INSERTING new line(s)
  2115. 64989  ZStopInterrupts = ZTrue   'Pe 04/17/92
  2116. CALL BufFile(ZHelpPath$+"AUTOOFF.MNU",X)     ' MO 04/13/92
  2117. '      ZOutTxt$ = " C)ontinue with transfer " + ZCrLf$ + _
  2118. '                 " A)bort transfer - Cancel"+ ZCrLf$ + _
  2119. '                 " G)o ahead LOG-OFF after Transfer " + ZCrLf$ + _
  2120. '                 ZCrLf$ + "Press [Enter] to continue or select (C,A,G)->"
  2121. ZStopInterrupts = ZFalse    'Pe 04/17/92
  2122. ZOutTxt$ = "Select ([C],A,G) "
  2123.         ZTurboKey = -ZTurboKeyUser
  2124.       ZSubParm = 1
  2125.       Call TGet
  2126.       CALL AllCaps (ZUserIn$)
  2127.       WasMplx = INSTR("CAG",ZUserIn$)
  2128.       CALL Carrier                      'Pe 03/06/92
  2129.       IF ZSubParm = -1 THEN _           'Pe 03/06/92
  2130.       ZFileSysParm = 7 : _              'Pe 03/06/92
  2131.       EXIT SUB                          'Pe 03/06/92
  2132. IF ZUserIn$ = "" or ZUserIn$ = " " Then _
  2133.       GOTO 64995
  2134.    ON WasMplx GOTO 64995,64990,64998
  2135.       GOTO 64989
  2136. 64990 ZAutoEnd = 2
  2137.       Call Skipline (2)
  2138.       EXIT SUB
  2139. 64995 ZAutoEnd = 3
  2140.       Call Skipline (2)
  2141.       EXIT SUB
  2142. 64998 ZAutoEnd = 1
  2143.       ZAutoLogoffReq = ZTrue     'Pe 12/20/92
  2144.       Call SkipLine (2)
  2145.       END SUB
  2146. '
  2147. ' ****  S - COMMAND FROM UTILITY MENU (STATISTICS)  ***  'Pe 09/02/91
  2148. '
  2149. SUB Statistics (CallsToDate!,ActiveMessages,HighMsgNumber,HighestMsgRecord,CurUserCount,MaxMsgs) STATIC
  2150.       ActionFlag = ZTrue
  2151.       IF ZActiveMessageFile$ = ZPrevBase$ THEN _
  2152.         ActionFlag = ZFalse
  2153.      CALL QuickTPut1 ("RBBS-PC " + ZVersionID$ + " Node " + ZNodeID$)
  2154.      ZOutTxt$ = ""
  2155.      IF NOT ZConfMode THEN _
  2156.            ZOutTxt$ = "Caller Number................"+STR$(CallsToDate!) + "  "+ZCrLf$
  2157. ZOutTxt$ = ZOutTxt$ + "Active Messages.............."+STR$(ActiveMessages)+ZCrLf$
  2158. ZOutTxt$ = ZOutTxt$ + "Next Msg Number.............."+STR$(HighMsgNumber + 1)+ZCrLf$
  2159.      IF ZLastMsgRead > 0 THEN _
  2160.      ZOutTxt$ = ZOutTxt$ + "Last msg you read............" + STR$(ZLastMsgRead)+ZCrLf$ _
  2161.      ELSE ZOutTxt$ = ZOutTxt$ + "You Have NOT Read Any Messages Yet !" +ZCrLf$ : _
  2162.      ZNewUserDgs = Ztrue
  2163.      ZSubParm = 2
  2164.      CALL TPut
  2165. IF ZSubParm < 0 THEN _
  2166.          EXIT SUB
  2167.     ZWasZ$ = ZUpldDriveFile$
  2168.      CALL FindFree
  2169.      CALL QuickTPut1 ("Upload disk has" + ZFreeSpace$)
  2170.      CALL QuickTPut1 ( "String Space = "+  (STR$(FRE("A")) + " bytes")) 'Pe 08/01/92
  2171.      CALL QuickTPut1 ( "StackSpace = "+  (STR$(FRE(-2)) + " bytes")) 'Pe 05/10/92
  2172. '   CALL LPrnt("Free Common String Space ="+ (STR$(FRE(ZWASZ$))),1) 'Bcfs Mods
  2173. '   CALL LPrnt("Free Local String Space ="+ (STR$(FRE(WASZ$))),1)   'Bcfs Mods
  2174. '   CALL LPrnt("Free Far Space ="+ (STR$(FRE(-1))),1)               'Bcfs mods
  2175.  
  2176.      IF (NOT ZSysop) AND (ZUserSecLevel < ZSecKillAny) THEN _
  2177.       CALL Delaytime (2) : _
  2178.         EXIT SUB
  2179.      UserWork = (ZHighestUserRecord * .95) + 1
  2180.      IF ZMsgsCanGrow THEN _
  2181.         ZWasY$ = " open" _
  2182.      ELSE ZWasY$ = STR$(HighestMsgRecord + 1 - ZMaxNodes - ZNextMsgRec)
  2183.      ZOutTxt$ = "USERS: used" + _
  2184.           STR$(CurUserCount - 1) + _
  2185.           " avl" + _
  2186.           STR$(UserWork - CurUserCount) + _
  2187.           "  MSGS: used" + _
  2188.           STR$(ActiveMessages) + _
  2189.           " avl" + _
  2190.           STR$(MaxMsgs - ActiveMessages) + _
  2191.           "  MSG REC: used" + _
  2192.           STR$(ZNextMsgRec - 1) + _
  2193.           " avl" + ZWasY$
  2194.      ZSubParm = 2
  2195.      CALL TPut
  2196. IF ZSubParm < 0 THEN _
  2197.    EXIT SUB
  2198. CALL DelayTime (2)
  2199. END SUB
  2200. '********************************************************************
  2201. '
  2202. SUB ShowUsrProfile STATIC
  2203.  CALL QuickTPut (CHR$(12),0) ' to clear screen
  2204. WasX$ =  "USER NAME : " + ZActiveUserName$ + ZCrLF$ + _
  2205.          "SECURITY  :" + STR$(ZUserSecSave) + ZCrLf$ + _
  2206.          "PASSWORD  : " + ZPswdSave$ + ZCrLF$ + _
  2207.          "READ MSG. :" + STR$(ZLastMsgRead)
  2208. Call QuickTput1 (WasX$)
  2209. WasX$ =  "TIMES ON  :" + STR$(ZTimesLoggedOn) +ZCrLF$ + _
  2210.          "Last ON   : " + ZLastDateTimeOnSave$ +ZCRLF$ + _
  2211.          "DownLoads :" + STR$(ZDnlds)                            'Pe 07/09/92 
  2212. Call QuickTput1 (WasX$)
  2213. WasX$ =  "Uploads   :" + STR$(ZUplds)+ ZCrLf$ + _                'Pe 06/01/92
  2214.          "Baud Rate : " + ZCBaud$ + " Bps"                       'Pe 06/01/92
  2215. Call QuickTPut1 (WasX$)
  2216. WasX$ = "Dl-Bytes  :" + STR$(ZDLBytes!)+ZCrLF$ + _
  2217.         "Ul-Bytes  :" + STR$(ZULBytes!)                          'Pe 07/09/92
  2218. Call QuickTput1 (WasX$)
  2219. WasX$ = "User mode : " + MID$("NoviceExpert",1 -6 * ZExpertUser,6) +ZCrLf$ +_
  2220.         "Graphics  : " + MID$("None AsciiColor",GR * 5 + 1,5)
  2221. Call QuickTput1 (WasX$)
  2222. WasX$ = "Protocol  : " + ZUserXferDefault$ + ZCrLF$ + _
  2223.         "Upper Case: " + MID$("and lowerONLY", 1 - 9 * ZUpperCase,9)+ZCrLf$ + _
  2224.         "Line Feeds: " + FNOFFON$(ZLineFeeds)+ ZCrLF$ + _                 'Pe 07/11/92
  2225.         "Nulls     : " + FNOFFON$(ZNulls)
  2226. Call QuickTPut1 (WasX$)
  2227.       IF ZRestrictByDate THEN _
  2228.      CALL QuickTPut ("EXPIRATION: " + ZExpirationDate$,1)
  2229.      CALL Toggle (-8)
  2230.      CALL Toggle (-5)
  2231.      CALL Toggle (-10)
  2232.      CALL Toggle (-2)
  2233.      CALL Toggle (-4)
  2234.      CALL Toggle (-1)
  2235.      CALL Toggle(-11)                                                ' RCHAT
  2236. CALL AskMore ("",ZTrue,ZFalse,WasX,ZTrue)
  2237. END SUB
  2238. '********************************************************************
  2239. '
  2240. SUB BatchUpload (ZDesc$,ZUCat$,WasFF) STATIC
  2241. On WasFF GOTO 69000, 69500
  2242. 69000    CALL OpenWorkA ("BatchUp" +ZNodeID$ +".LST")
  2243.          Call PrintWorkA (ZFileName$)
  2244.          CALL PrintWorkA (ZFileNameHold$)
  2245.          CALL PrintWorkA (ZDesc$)
  2246.          CALL PrintWorkA (ZUcat$)
  2247.         Close 2
  2248.      CALL OpenWorkA (ZBatchWorkFile$) 
  2249.        CALL PrintWorkA (ZFileName$)
  2250.      Close 2
  2251. IF ZAnsindex = ZLastIndex THEN 
  2252.       ZUpBatchTransfer = ZFalse
  2253.       ZWasBatchTransfer = ZTrue
  2254.   End IF
  2255. Exit Sub
  2256. '
  2257. '
  2258. 69500 CALL KillWork (ZBatchWorkFile$)
  2259.       ZErrCode = 0
  2260.     Temp$ = "BatchUp" + ZNodeid$ + ".LST"
  2261.       CALL OpenWork (8,Temp$)
  2262.          While Not EOF(8)
  2263.        Line Input #8,ZFileName$
  2264.        Line Input #8,ZFileNameHold$
  2265.        Line Input #8,ZDesc$
  2266.        Line Input #8,ZUCat$
  2267.         Call Findit (ZFileName$)
  2268.     IF ZOK THEN _
  2269.       CALL UpdtUpload (ZCategoryName$(),ZCategoryCode$(), ZLinesInMsg,2) _
  2270.         Else CALL UpdtCalr (ZFileNameHold$ + " ABORTED during BatchUL",2) 
  2271.           ZWasBatchTransfer = ZFalse                  'Pe 09/12/91
  2272.          ZAlreadyGiven = ZTrue
  2273.        Wend
  2274.      Close 8
  2275. End Sub
  2276.  
  2277. 69600 ' $SUBTITLE: 'BATCHIT - subroutine to list files for batch downloading'
  2278. ' $PAGE
  2279. '
  2280.  SUB BATCHIT STATIC
  2281.       CALL PutCom (CHR$(7))
  2282.         Call GetRBBSString(205,RBBSString$) : _      'Pe 01/16/93
  2283.         OutTxt$ = RBBSString$ : _                'Pe 01/16/93
  2284.       CALL QuickTPUT (OutTxt$,1)
  2285.        ZWasB=1
  2286.        FOR BatchF = 2 TO 25
  2287.         ZOutTxt$ = "Name of file #" + STR$(Batchf-1)
  2288.         Call TGet
  2289.          IF ZUserIn$ = "" THEN GOTO 70415
  2290.           ZUserIn$(BatchF) = ZUserIn$
  2291.           ZAnsIndex = BatchF+1
  2292.         NEXT BatchF
  2293. 70415 BatchF =  BatchF-1
  2294.       ZLastIndex = BatchF
  2295.         End Sub
  2296. '
  2297. ' $SUBTITLE: 'TStat --- Display Transfer Stats from Xfer-? file'
  2298. ' $PAGE
  2299. '
  2300.       SUB TStats STATIC                                              ' MplXfer
  2301.       CALL OpenWork (2,"XFER-" + ZNodeID$ + ".DEF")                  ' MplXfer
  2302.       IF ZErrCode <> 0 THEN _
  2303.        Exit Sub                                                    'Pe 06/01/92
  2304.       CALL SkipLine (2)                                              ' MplXfer
  2305.       Call GetRBBSString(206,RBBSString$)      'Pe 01/16/93
  2306.       OutTxt$ = RBBSString$                 'Pe 01/16/93
  2307.       CALL QuickTPut (ZFG2$ + OutTxt$,2)
  2308.         Call GetRBBSString(207,RBBSString$)      'Pe 01/16/93
  2309.             OutTxt$ = RBBSString$               'Pe 01/16/93
  2310.       CALL QuickTPut1 (ZFG4$ + OutTxt$)
  2311.         Call GetRBBSString(208,RBBSString$)      'Pe 01/16/93
  2312.             OutTxt$ = RBBSString$               'Pe 01/16/93
  2313. Call QuickTput1 (ZFG3$ +OutTxt$ + ZEmphasizeOff$) ' MplXfer
  2314.       WHILE NOT EOF(2)                                               ' MplXfer
  2315.         LINE INPUT #2,Stat$                                          ' MplXfer
  2316.         WasS = INSTR(Stat$,"rs ")                                    ' MplXfer
  2317.         IF WasS > 0 THEN _                                           ' MplXfer
  2318.            WasX$ = MID$(Stat$, 2, WasS)                              ' MplXfer
  2319.         Match = INSTR(Stat$, ".")                                    ' MplXfer
  2320.         IF Match > 0 THEN _                                          ' MplXfer
  2321.            WasZyX$ = MID$(Stat$, Match - 8, 12)                      ' MplXfer
  2322.         Match = 0                                                    ' MplXfer
  2323.         Start = 1                                                    ' MplXfer
  2324.         DO                                                           ' MplXfer
  2325.           Match = INSTR(Start, WasZyX$, "\")                         ' MplXfer
  2326.           IF Match > 0 THEN _                                        ' MplXfer
  2327.              WasZyX$ = RIGHT$(WasZyX$, LEN(WasZyX$) - Match)         ' MplXfer
  2328.         LOOP WHILE Match                                             ' MplXfer
  2329.         Match = 0                                                    ' MplXfer
  2330.         Start = 1                                                    ' MplXfer
  2331.         DO                                                           ' MplXfer
  2332.           Match = INSTR(Start, WasZyX$, " ")                         ' MplXfer
  2333.           IF Match > 0 THEN _                                        ' MplXfer
  2334.              WasZyX$ = RIGHT$(WasZyX$, LEN(WasZyX$) - Match)         ' MplXfer
  2335.         LOOP WHILE Match                                             ' MplXfer
  2336.         WasXy = LEN(WasZyX$)                                         ' MplXfer
  2337.  
  2338.       IF ZErrCode <> 0 THEN _
  2339.        Exit Sub                                                    'Pe 06/01/92
  2340.  
  2341.      CALL QuickTPut1 (ZFG1$ + WasZyX$ + SPACE$(15-WasXy) + WasX$ + ZEmphasizeOff$) ' MplXfer
  2342.       WEND                                                           ' MplXfer
  2343.       CALL SkipLine (1)                                              ' MplXfer
  2344.       CLOSE 2                                                        ' MplXfer
  2345.       CALL DelayTime (3)                                             ' MplXfer
  2346.       END SUB                                                        ' MplXfer
  2347. '
  2348. ' $SUBTITLE: 'ShowBull --- Intitial Welcom screen displayed'
  2349. ' $PAGE
  2350. '
  2351.  Sub ShowBull (UsrSecLevel$) STATIC   'Pe 07/23/92
  2352. 71525 CALL SkipLine (2)
  2353.      WasX$ = ZFG1$+"Review System Screens Available:" + ZCrLf$ + _
  2354.              ZFG4$+"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
  2355. Call QuickTPut (WasX$,2)
  2356.      WasX$ = ZFG2$+"P)relog Screen"+ZCrLf$ + _
  2357.              ZFG3$+"W)elcome Screen" + ZCrLf$ + _
  2358.              ZFG4$+"O)nline News Screens"
  2359. Call QuickTPut (WasX$,1)
  2360.     WasX$ = ZFG1$+"Y)our Access Level" +ZCrLf$ + _
  2361.             ZFG2$+"N)ew User Sign-On" + ZCrLf$ + _
  2362.                   "[Q]uit"+ZEmphasizeOff$
  2363. Call QuickTPut (WasX$,2)
  2364. ZOutTxt$ = "Please make a Selection (P,W,O,Y,N,[Q]) "
  2365.         GOSUB 72999                     'Pe 04/25/92
  2366.         CALL AllCaps (ZUserIn$)
  2367.         WasMplX = INSTR("PWOYNQ",ZUserIn$)
  2368.         IF ZUserIn$ = "" THEN _
  2369.            GOTO 71596
  2370.     ON WasMplX GOTO 71530,71533,71536,71539,71541,71596
  2371. 71530 ZFileName$ = ZPreLog$
  2372.      GOTO 71550
  2373. 71533 ' ZFileName$ = ZWelcomeFile$
  2374.           CALL Displaywelcome
  2375.           Goto 71525
  2376.    '     GOTO 71550  
  2377. 71536 ZFileName$ = ZNewsFileName$
  2378.      GOTO 71550
  2379. 71539 ZFileName$ = ZWelcomeFileDrvPath$ + _      'Pe 07/19/92
  2380.                  "LG" + _
  2381.                  UsrSecLevel$ + _                'Pe 07/23/92
  2382.                  ".DEF"                          'Pe 06/01/92
  2383.      GOTO 71550
  2384. 71541 ZFileName$ = ZNewUserFile$
  2385. 71550 GOSUB 71790
  2386.      CALL AskMore ("",ZTrue,ZFalse,WasX,ZTrue)
  2387.      GOTO 71525
  2388. 71596 ZFileSysParm = 1
  2389.        Exit Sub
  2390. '
  2391. 71790 CALL Graphic (ZFileName$)
  2392.      CALL BufFile (ZFileName$,WasX)
  2393.      CALL Carrier
  2394.      IF ZSubParm = -1 THEN _
  2395.         ZFileSysParm = 7 : _
  2396.         Exit Sub
  2397.      RETURN
  2398.  
  2399. 72995 GOSUB 72997
  2400.       ZSubParm = 1
  2401. 72996 CALL TGet
  2402. 72997 IF ZSubParm < 0 THEN _
  2403.       ZFileSysParm = 7 :_
  2404.          Exit Sub
  2405.       RETURN
  2406. 72998 ZOutTxt$ = ZOutTxt$ + _
  2407.            ZPressEnter$
  2408.       GOTO 72995
  2409. 72999 ZTurboKey = -ZTurboKeyUser
  2410.       GOTO 72995
  2411. End Sub
  2412. '
  2413. 78150   SUB DisplayWelcome STATIC
  2414. '
  2415.        ZStopInterrupts = NOT ZWelcomeInterruptable                   ' DD011601
  2416.        ZBypassTimeCheck = ZTrue                                      ' DD011601
  2417.        ZFileName$ = ZWelcomeFile$ + ".LST"                           ' DD011601
  2418.        CALL FindIt (ZFileName$)                                      ' DD011601
  2419.        IF ZOK THEN                                                   ' DD011601
  2420.           CALL OpenWork (7, ZFileName$)                              ' DD011601
  2421.           WHILE NOT EOF(7)                                           ' DD011601
  2422.              CALL ReadDir (7,1)                                      ' DD011601
  2423.              ZFileName$ = ZOutTxt$                                   ' DD011601
  2424.              ZStopInterrupts = NOT ZWelcomeInterruptable             ' DD011601
  2425.              ZBypassTimeCheck = ZTrue                                ' DD011601
  2426.              ZDisplayAsUnit = ZTrue                                  ' DD011601
  2427.              GOSUB 78160                                               ' DD011601
  2428.           WEND                                                       ' DD011601
  2429.           CLOSE 7                                                    ' DD011601
  2430.        ELSE                                                          ' DD011601
  2431.           ZFileName$ = ZWelcomeFile$                                 ' DD011601
  2432.           ZDisplayAsUnit = ZTrue                                     ' DD011601
  2433.           GOSUB 78160                                                ' DD011601
  2434.        END IF                                                        ' DD011601
  2435.        ZDisplayAsUnit = ZFalse                                       ' DD011601
  2436.        EXIT SUB                                                      ' DD011601
  2437. 78160  CALL Graphic (ZFileName$)                                     ' DD011601
  2438.        CALL BufFile (ZFileName$,WasX)                                ' DD011601
  2439.        CALL Carrier                                                  ' DD011601
  2440.        IF ZSubParm = -1 THEN _                                       ' DD011601
  2441.           EXIT SUB                                                   ' DD011601
  2442.        RETURN                                                        ' DD011601
  2443.        END SUB                                                       ' DD011601
  2444. '
  2445. ' $SUBTITLE: 'Line108 --- was line 108 in RBBS-PC.BAS'
  2446. ' $PAGE
  2447. '
  2448.  Sub line108 STATIC   'Pe 07/23/92
  2449.  
  2450.  CALL BreakFileName (ZCallersFile$,Drive$,WasX$,ZWasY$,ZTrue)
  2451.     ZCallersFilePrefix$ = WasX$
  2452.     ZNodeWorkDrvPath$ = Drive$
  2453.     ZArcWork$ = ZNodeWorkDrvPath$ + _
  2454.                 "ARCWORK" + _
  2455.                 ZNodeFileID$ + _
  2456.                 ".DEF"
  2457.     IF ZUseBASICWrites THEN _
  2458.        ZLocalBksp$ = ZBackArrow$ _
  2459.     ELSE ZLocalBksp$ = ZBackSpace$
  2460.     ZSysopFullName$ = LEFT$(ZSysopFirstName$ + " " + ZSysopLastName$ + "  ",22)
  2461.     ZFastFileSearch = ZFalse
  2462.     CALL FindIt (ZFastFileList$)
  2463.     IF ZOK THEN _
  2464.        CALL FindIt (ZFastFileLocator$) : _
  2465.        IF ZOK THEN _
  2466.           ZFastFileSearch = ZTrue : _
  2467.           CALL BreakFileName (ZFastFileList$, Drive$,WasX$,ZWasY$,ZTrue) : _
  2468.           ZFileName$ = Drive$ + WasX$ + "T" + ZWasY$ : _
  2469.           CALL FindIt (ZFileName$) : _
  2470.           IF ZOK THEN _
  2471.              CALL OpenRSeq (ZFileName$, WasX, WasY, 72) : _
  2472.              FIELD 2, 72 AS IndexRec$ : _
  2473.              GET 2, 1 : _
  2474.              ZFastTabs$ = IndexRec$ : _
  2475.              CLOSE 2 _
  2476.           ELSE ZFastTabs$ = ""
  2477. '
  2478. ' *****  INITIALIZE NetBIOS INTERFACE   ****
  2479. '
  2480.    IF ZNetworkType = 6 AND NOT ZSubBoard THEN _
  2481.       CALL InitIBM
  2482. '
  2483. ' *****  ESTABLISH NEXT CALLERS FILE RECORD AVAILABLE   ***
  2484. '
  2485.     CALL SetCall
  2486.  IF NOT ZSubBoard THEN _
  2487.        ZLocalUser = ZTrue : _
  2488.        ZOutTxt$ = ZColorReset$ : _
  2489.        ZSubParm = 1 : _
  2490.        CALL TPut : _
  2491.        ZLocalUser = ZFalse
  2492.     ZUpldDriveFile$ = RIGHT$(ZDnldDrives$,1)+":FREESPAC.UPL"
  2493.     ZMinsPerSessionDef = ZMinsPerSession
  2494.     ZMaxPerDayDef = ZMaxPerDay
  2495.     ZMaxBankTimeDef = ZMaxBank
  2496. End Sub
  2497.